如何枚举DATAGRID的所有行信息?

Question

        Dim i As Integer
        Dim aa As Integer
        aa = rs.RecordCount - 1
        
        For i = 0 To aa
            Dim a1 As String
            Dim a2 As String
            Dim a3 As String
           
            DataGrid1.Row = i            a1 = DataGrid1.Columns(0).Value
            a2 = DataGrid1.Columns(1).Value
            a3 = DataGrid1.Columns(2).Value
        Next总共检索出了20行记录,为什么我查到第18条时就提示行号出错?

Answer 1

试试对rs记录集操作    Dim i As Integer 
    Dim aa As Integer 
    aa = rs.RecordCount - 1 
        For i = 0 To aa 
            Dim a1 As String 
            Dim a2 As String 
            Dim a3 As String 
          
            DataGrid1.Row = i 
            a1 = rs.Fields(0)
            a2 = rs.Fields(1)
            a3 = rs.Fields(2)
        Next 

Answer 2

先显示一下DataGrid1.Rows，看是多少