Sub ADDTreeView() dim nodeX as node dim NodeY as node dim rs as adodb.recordset dim i as integer set rs=cn.execute("Select * from gzgl") set nodex=treeview1.nodes.add ,,"字段名" for i=0 to rs.fields.count-1 set NodeY =treeview1.nodes.add(nodex.index,,rs.fields(i).name) next end sub在Treeview_Click事件中加入如下代码: dim rs=cn.execute("Select "& treeview1.selectitem.text &" from gzgl") set datagrid1.datasource=rs 就可以达到你的要求了(如果是按你说的一种思路,虽然我没看懂,但思路基本上是这样)
dim nodeX as node
dim NodeY as node
dim rs as adodb.recordset
dim i as integer
set rs=cn.execute("Select * from gzgl")
set nodex=treeview1.nodes.add ,,"字段名"
for i=0 to rs.fields.count-1
set NodeY =treeview1.nodes.add(nodex.index,,rs.fields(i).name)
next
end sub在Treeview_Click事件中加入如下代码:
dim rs=cn.execute("Select "& treeview1.selectitem.text &" from gzgl")
set datagrid1.datasource=rs
就可以达到你的要求了(如果是按你说的一种思路,虽然我没看懂,但思路基本上是这样)
你只要把你要的值先取出来,然后在把它放在treeview里.