7,789
社区成员
发帖
与我相关
我的任务
分享快來解決一下﹐急
本人還是不了解listview的用法﹐如何將數據庫中的資料顯示在其中,并列出相應的標頭﹔并且可以雙擊彈出另一個界面﹐該如何做
...全文
请发表友善的回复…
发表回复
射天狼 2003-09-04
- 打赏
- 举报
Dim lv_Item As ListItem
rs.Open "select * from USERPASSWORD", cn, adOpenForwardOnly, adLockReadOnly
While Not rs.EOF
Set lv_Item = frmRight.lvUser.ListItems.Add(, , Trim(rs!uId), 1, 1)
lv_Item.ListSubItems.Add , , "***"
lv_Item.ListSubItems.Add , , Trim(rs!TRUENAME)
lv_Item.ListSubItems.Add , , Format(rs!CREATEDATE, "yyyy/MM/dd")
lv_Item.Tag = Trim(rs!PWD)
rs.MoveNext
Wend
rs.Open "select * from USERPASSWORD", cn, adOpenForwardOnly, adLockReadOnly
While Not rs.EOF
Set lv_Item = frmRight.lvUser.ListItems.Add(, , Trim(rs!uId), 1, 1)
lv_Item.ListSubItems.Add , , "***"
lv_Item.ListSubItems.Add , , Trim(rs!TRUENAME)
lv_Item.ListSubItems.Add , , Format(rs!CREATEDATE, "yyyy/MM/dd")
lv_Item.Tag = Trim(rs!PWD)
rs.MoveNext
Wend
