2014-09-24 77 views
-1

我想弄清楚如何爲每個語句編寫一個,以便通過查找所有用戶,這將繼續循環,因爲現在,它只能找到他的第一個用戶。任何幫助將不勝感激。謝謝!爲每個循環列表視圖

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) 
+0

沒有環路那裏,沒有代碼來找到任何代碼;它只是增加了LVI,所以不清楚什麼是錯的;你問如何在記錄集上循環添加一些項目? – Plutonix 2014-09-24 12:08:13

+0

是的,這就是我要求的。對不起,我很遺憾。我試圖在記錄集上循環添加更多的項目到列表中。我在網上搜索,沒有任何我嘗試過的,所以我猜測我做錯了。 – 2014-09-24 12:37:05

回答

0

這裏是你所要求的任務(未測試)

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 
+0

謝謝!完美工作 – 2014-09-24 16:37:52