查人人中国名人网当代商报记者王海峰:VB中TreeView1与MSHFlexGrid1的使用
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/30 03:30:28
请求大家的帮助，现在要做一个信息查询显示的界面
如何在TreeView1控件中显示所有部门名称，点击部门名称，这个部门的所有人都显示在MSHFlexGrid1控件中
数据库：sql server 2000
Private Sub Form_Load()
Dim Nodx1, nodx2 As Node
Set Nodx1 = TreeView1.Nodes.Add(, , "r", "全部项目")
Set Nodx1 = TreeView1.Nodes.Add("r", tvwChild, "child1", "项目名称")
End Sub
都在同一FORM中
如何在TreeView1控件中显示所有部门名称，点击部门名称，这个部门的所有人都显示在MSHFlexGrid1控件中
数据库：sql server 2000
Private Sub Form_Load()
Dim Nodx1, nodx2 As Node
Set Nodx1 = TreeView1.Nodes.Add(, , "r", "全部项目")
Set Nodx1 = TreeView1.Nodes.Add("r", tvwChild, "child1", "项目名称")
End Sub
都在同一FORM中
dim rs as new recordset
rs.open "select * from 表1 where xxx='" & treeview1.selectitem.text & "'",conn
set mshflexgrid1.datasource=rs
就这样。conn假设为你的connection的名字。将mshflexgrid1.datasource SET 到rs，则会自动显示查询出来的结果。