直接循环赋值即可Dim rssearch As New adodb.Recordset Set rssearch = New adodb.Recordset Dim fld As Field Dim RItem As ListItem Dim nFieldCount As Integer sql = "select bh,mc,nd,sj,mq,xz,lb,wz from ws" rssearch.Open sql, conn, adOpenDynamic, adLockBatchOptimistic With rssearch ListView1.ListItems.Clear While (Not .EOF) Set RItem = ListView1.ListItems.Add(, , CStr(.Fields(0))) For nFieldCount = 1 To .Fields.Count - 1 RItem.SubItems(nFieldCount) = .Fields(nFieldCount) Next nFieldCount .MoveNext Wend End With Set RItem = Nothing End Sub
Set rssearch = New adodb.Recordset
Dim fld As Field
Dim RItem As ListItem
Dim nFieldCount As Integer
sql = "select bh,mc,nd,sj,mq,xz,lb,wz from ws"
rssearch.Open sql, conn, adOpenDynamic, adLockBatchOptimistic
With rssearch
ListView1.ListItems.Clear
While (Not .EOF)
Set RItem = ListView1.ListItems.Add(, , CStr(.Fields(0)))
For nFieldCount = 1 To .Fields.Count - 1
RItem.SubItems(nFieldCount) = .Fields(nFieldCount)
Next nFieldCount
.MoveNext
Wend
End With
Set RItem = Nothing
End Sub
怎樣添加,樓上的已經說拉