Question

我有一个要求，即在不使用EOF的情况下循环记录集。但它没有拿到第二个元素，说它无法在集合中找到它。

这是我的代码：

Set rs = db.OpenRecordSet(strSQL)
 Debug.Print (rs(0)) 'Works
 Debug.Print (rs(1)) 'Says Item cannot be found

但rs.RecordCount的值为2

我正在尝试获取这些值并将其添加到列表框

Total1 = rs.RecordCount
Total2 = Total1 - 1


If Total1 > 0 Then
    For j = 0 To Total2
        Value = rs(j) ' fails when j = 1
            If Value <> "" Then                
                With RequiredReportType.RT_ListBox
                    .AddItem Value
                End With
            End If
        Value = ""     
    Next
End If

请帮助我。

Answer 1

得到答案，需要.movenext

这是代码，

With rs

 Do Until rs.EOF

     ReqValue = rs.Fields(0).Value

     If ReqValue <> "" Then

                With RequiredReportType.RT_ListBox

                        .AddItem ReqValue

                End With

            End If


     rs.MoveNext

 Loop

End With

VBA - 循环Recordset失败

1 个答案: