vb中listview如何显示数据库内容

来源：百度知道 编辑：UC知道 时间：2024/06/07 03:13:23
vb中listview如何显示数据库内容？并且每行的首部都带有复选框供选择，选择完后可以取得选中行的某列数据？VC中我会用，但是到了VB中就不行了。

第一步：添加列头
可在form_load里边添加，如下：
'初始化
ListView1.FullRowSelect = True '（允许整行选择）
listview1.gridlines=true '(显示网格)
listview1.checkboxs=true '显示checkboxs框
listview1.view=3 '以报表形式显示

ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add 1, , "姓名", 1000
ListView1.ColumnHeaders.Add 2, , "性别", 500
ListView1.ColumnHeaders.Add 3, , "职称", 1500
ListView1.ColumnHeaders.Add 4, , "电话", 1000

第二步，添加数据
Dim itmX As ListItem
Set itmX = lvw.ListItems.Add(参数，参数，参数，……) '这些参数都可以为空，具体你可以看看msdn
itmX.text="李四"
itmX.SubItems(1) = "雄性"
itmX.SubItems(2) = "大将军"
itmX.SubItems(3) = "10086"

第三步，取得行数据
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Text1 = Item.Text
Text2 = Item.SubItems(1)
Text3 = Item.SubItems(2)
Text4 = Item.SubItems(