VB中单击treeview结点在listview显示（数据库）

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

treeview连接数据库，单击treeview结点（treeview结点在数据库中有），当单击treeview结点查找数据库中另外一个表中的数据时，把查找到数据在listview中显示。

解析:

你找到node（即接点）的相关属性就是什么呢？反正找到就可以了，然后在treeview的nodeclick事件中写上以下代码：listview.datasource=treeview.node.text,就可以了。

第一步：添加列头

可在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(3)

End Sub

试一试就能知道怎么用了，快去试试吧

---