Question

我正在试图弄清楚如何为每个语句编写一个，以便通过查找所有用户来循环查找，因为现在，它只能找到第一个用户。任何帮助将不胜感激。谢谢！

Dim item As New ListViewItem
item = New ListViewItem
Dim itm As New ListViewItem(objRecordSet.Fields("sAMAccountName").Value().ToString)
itm.SubItems.Add(objRecordSet.Fields("givenName").Value().ToString)
itm.SubItems.Add(objRecordSet.Fields("SN").Value().ToString)
ListView1.Items.Add(itm)

Answer 1

以下是您要求（未经测试）的任务的代码

If Not (objRecordSet.EOF And objRecordSet.BOF) Then
    objRecordSet.MoveFirst
    While Not objRecordSet.EOF
        Dim itm As New ListViewItem(objRecordSet.Fields("sAMAccountName").Value().ToString)
        itm.SubItems.Add(objRecordSet.Fields("givenName").Value().ToString)
        itm.SubItems.Add(objRecordSet.Fields("SN").Value().ToString)
        ListView1.Items.Add(itm)
        objRecordSet.MoveNext
    Wend
End If

对于每个循环列表视图

1 个答案: