VB中 dataGrid行号无效问题！！

Question

我是将数据集放到datagrid中，数据只有一列，我将每行数据存到数组中，一直出现行号无效问题。好像是分页问题，我拉长了就可以多显示几个。请问我该怎么办？如何不让它分页？代码如下
Private Sub Command3_Click()
Dim ID(800) As String
Dim i As Integer
Dim k As Integer
a = Trim(Form2.Text1.Text)
b = Trim(Form2.Text2.Text)

c = Trim(Form2.Text3.Text)
Call OpenCn(a, b, c)
If addFlag = True Then MsgBox ("OK")

Call openRs("SELECT ...........")
Set DataGrid2.DataSource = rs
k = rs.RecordCount

i = 0

Do While (i < k)
DataGrid2.Col = 0
DataGrid2.Row = i
ID(i) = DataGrid2.Text
'If ID(i) = "" Then GoTo 10 i = i + 1
Loop
conn.Close
End Sub

Answer 1

你是使用rs填充的datagrid,那么取datagrid的数据之前怎么不考虑直接读rs
出现行号无效问题的原因是你在k = rs.RecordCount-1追问

我是菜鸟，怎么直接读rs？

追答

Private Sub Command3_Click()
Dim ID(800) As String
Dim i As Integer
Dim k As Integer
a = Trim(Form2.Text1.Text)
b = Trim(Form2.Text2.Text)

c = Trim(Form2.Text3.Text)
Call OpenCn(a, b, c)
If addFlag = True Then MsgBox ("OK")

Call openRs("SELECT ...........")
Set DataGrid2.DataSource = rs
k = rs.RecordCount
if k>0 then

for i=0 to k-1
id(i)=rs!id'假设数据表中这一列的列名叫id
rs.movenext
next
end if
conn.Close

End Sub