我想用listview1 加載用戶資訊表中的資訊 (用戶編號 用戶名稱 密碼)
要怎么Private Sub LoadData()
Dim addlist1 As ListItem
'得到用戶資訊
SQL = " select * from 用戶資訊表 order by 用戶編號"
Set rs = SelectSQL(SQL, msg)
If rs.RecordCount <> 0 Then
listview1.View = lvwReport '報表顯示方式
listview1.GridLines = True '顯示表格線
Set addlist1 = listview1.ColumnHeaders.Add(, , Str(rs.Fields("用戶編號")))
//listview1.ColumnHeaders.Add(, , Str(rs.Fields("用戶名稱")))
//Set addlist1 = listview1.ColumnHeaders.Add(, , Str(rs.Fields("密碼")))
//Set addlist1 = listview1.ListItems.Add(, , Str(rs.Fields("身份證號")))
//addlist1.SubItems(4) = IIf(IsNull(rs.Fields("電話")), "", rs.Fields("電話"))
都行不通
rs.NextRecordset
listview1.Refresh
End If
End Sub
uj5u.com熱心網友回復：
什么亂七八糟的。連回圈都沒有。。。
...
listview1.View = lvwReport '報表顯示方式
listview1.GridLines = True '顯示表格線
listview1.ColumnHeaders.Add "用戶編號"
listview1.ColumnHeaders.Add "用戶名稱"
...
Dim li As ListItem
While Not rs.Eof
Set li = listview1.ListItems.Add rs!第一列
li.SubItems(0).Text = rs!第二列
li.SubItems(1).Text = rs!第三列
...
rs.MoveNext
Wend
...
以上代碼只是大致思路，自己寫寫吧
uj5u.com熱心網友回復：
謝謝 以后才看到轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/133282.html
標籤：網絡編程