DataGrid查询的问题，网上找了很久也解决不了，谁来帮帮忙啊？

[xzzy75]

Dim i As Integer
For i = 0 To Me.DataGrid1.ApproxCount
DataGrid1.Row = i: DataGrid1.Col = 0
If DataGrid1.Columns("id") = Rs("id") Then
DataGrid1.SelBookmarks.Add DataGrid1.Bookmark
Exit For
End If
Next i

i=14以前都没问题，但大于14就出错了。
网上说是DataGrid分页的问题，但有没有解决方法啊？

[chinaboyzyq]

For i = 0 To Me.DataGrid1.ApproxCount 这句错，因为.ApproxCount返回在网格中的行号的近似值

应改成数据源的总记录数：
for i = 0 to Adodc1.Recordset.RecordCount
或
for i = 0 to rs.RecordCount

[xzzy75]

[Quote=引用 2 楼 chinaboyzyq 的回复:]

For i = 0 To Me.DataGrid1.ApproxCount 这句错，因为.ApproxCount返回在网格中的行号的近似值

应改成数据源的总记录数：
for i = 0 to Adodc1.Recordset.RecordCount
或
for i = 0 to rs.RecordCount
[/Quote]

和这个没关系，就是改成 for i = 0 to 30 也不行
DataGrid1.Row = i 的i不能超过14，好像是 DataGrid分页的问题。但我又想在 DataGrid查询行，并且高亮，现在没办法解决，不知道有什么替代方案没有？

[zdingyun]

2楼的建议是正确的.LZ应该是对DataGrid控件所对应的记录集的记录数做循环.

[xzzy75]

[Quote=引用 4 楼 zdingyun 的回复:]

2楼的建议是正确的.LZ应该是对DataGrid控件所对应的记录集的记录数做循环.
[/Quote]

我比较菜，可以给代码看看吗？

我已经select id字段的值，然后要在datagrid的id中找到一样的值，并且高亮这一行。通过记录集循环后能得到datagrid的行数吗？

[chinaboyzyq]

[Quote=引用 3 楼 xzzy75 的回复:]
和这个没关系，就是改成 for i = 0 to 30 也不行
[/Quote]
看看你的数据源有多少条记录，如果i>数据源的记录条数-1则出错。

你的记录有30吗？

VB6的datagrid根本就不具有分页功能，别瞎猜了。

[zdingyun]

[Quote=引用 5 楼 xzzy75 的回复:]
引用 4 楼 zdingyun 的回复:

2楼的建议是正确的.LZ应该是对DataGrid控件所对应的记录集的记录数做循环.


我比较菜，可以给代码看看吗？

我已经select id字段的值，然后要在datagrid的id中找到一样的值，并且高亮这一行。通过记录集循环后能得到datagrid的行数吗？
[/Quote]

先得搞清楚你在DataGrid控件中德记录是如何获得的!

[xzzy75]

[Quote=引用 6 楼 chinaboyzyq 的回复:]

引用 3 楼 xzzy75 的回复:
和这个没关系，就是改成 for i = 0 to 30 也不行

看看你的数据源有多少条记录，如果i>数据源的记录条数-1则出错。

你的记录有30吗？

VB6的datagrid根本就不具有分页功能，别瞎猜了。
[/Quote]

很奇怪啊。
单独 DataGrid1.Row = 30: DataGrid1.Col = 0 是可以去30行的。。
看来是我猜错了。
我记录有33行。
但是
Dim i As Integer
For i = 0 To 33
DataGrid1.Row = i: DataGrid1.Col = 0
If DataGrid1.Columns("id") = Rs("id") Then
DataGrid1.SelBookmarks.Add DataGrid1.Bookmark
Exit For
End If
Next i
这个也不行啊，为什么会说行数错？

[chinaboyzyq]

看我楼上说的要用总记录数-1才行，也就是说你有33条记录只可到32不能到33，因为datagrid行是从0开始。

[xzzy75]

If DataGrid1.Columns("id") = Rs("id") Then

这句错了？Rs("id") 是我select出来的，就是一个id字段值，是唯一的。

循环DataGrid1.Columns("id") 找到唯一和这个值一样的，就退出循环，然后得到i的行值。

然后 DataGrid1.Row = i: DataGrid1.Col = 0
DataGrid1.SelBookmarks.Add DataGrid1.Bookmark

看不出错在哪，我是初学者，所以再请各位指教一下，谢谢！

[chinaboyzyq]

看我9楼回的。

[chinaboyzyq]

修正一下我2楼说的，具体应该如下（应减掉一个）：
应改成数据源的总记录数：
for i = 0 to Adodc1.Recordset.RecordCount -1
或
for i = 0 to rs.RecordCount -1

[xzzy75]

改了
Dim i As Integer
For i = 0 To Adodc1.Recordset.RecordCount - 1
DataGrid1.Row = i: DataGrid1.Col = 0
If DataGrid1.Columns("id") = Rs("id") Then
DataGrid1.SelBookmarks.Add DataGrid1.Bookmark
Exit For
End If
Next i

一样不能超过第14条记录，超过就说行号错误。。。

[zdingyun]

    Set Cn = New Connection
    Set rs = New Recordset
    strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\wd.mdb;Persist Security Info=False"
    Cn.ConnectionString = strcn
    Cn.Open
    sql = "SELECT * FROM jishijilu"
    Set rs.ActiveConnection = Cn
    rs.CursorLocation = adUseClient 'adUseServer
    rs.Open sql, Cn, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = rs
    Label1 = "共获得" & rs.RecordCount & "条查询结果"
    Dim i As Long
    For i = 0 To rs.RecordCount - 1
        '写代码
        rs.MoveNext
    Next

[chinaboyzyq]

Dim i As Integer
For i = 0 To Adodc1.Recordset.RecordCount - 1
Adodc1.Recordset.MoveFirst
DataGrid1.Row = i: DataGrid1.Col = 0
If DataGrid1.Columns("id") = Rs("id") Then
DataGrid1.SelBookmarks.Add DataGrid1.Bookmark
Exit For
End If
Next i

[xzzy75]

Dim i As Integer
Dim a As String
For i = 0 To Adodc1.Recordset.RecordCount - 1
DataGrid1.Row = i: DataGrid1.Col = 0
a = DataGrid1.Columns("id")
MsgBox a
Next i

改成这样执行了一下，datagrid的一直往下显示id字段的值，然后最后一行显示行号出错。-1、-2、-3都一样最后一行出错。

[xzzy75]

[Quote=引用 15 楼 chinaboyzyq 的回复:]

Dim i As Integer
For i = 0 To Adodc1.Recordset.RecordCount - 1
Adodc1.Recordset.MoveFirst
DataGrid1.Row = i: DataGrid1.Col = 0
If DataGrid1.Columns("id") = Rs("id") Then
DataGrid1.SelB……
[/Quote]

哈哈哈，成了，谢谢！就是这样的，能解释一下为什么吗？

[chinaboyzyq]

ataGrid1.Row是相对移动类似Adodc1.Recordset.Move并影响记录指针。

[threenewbee]

下标越界了。