刚才洒了200分，现在要问问题了，谁能给我一个比较完整的treeview操作的代码，实现N层

Question

rt,
俺的：[email protected]

Answer 1

从数据库中读取，添加同级。添加下级，删除一级，清空Node下的全部子级，修改操作，查找node,已经全部发给你了，请查收，数据表定义那上面也有，那是一个完整的测试程序，需要access数据库

Answer 2

拜托啊！！！！！！！！！！！！！！！！！！cdknet(cdksoft)我也需要一份啊！！！！！！！我刚找到工作，用的就是Tree操作数据库显示，正需要你的帮助啊！！！！！！！！拜托你！也给我一份行吗？？？？楼主！要是cdknet(cdksoft) 没看到，麻烦你能不能传给我一份？？？？？拜托啊！真的很需要很需要。本来我正翻书在写的！！！想看一下高手的例子啊！！！！！！！！我的油箱：  [email protected]我在线等候。十分恳求。

Answer 3

Set nd = .Nodes.Add(, , "电量分析", "电量分析", lis("电量分析").Index)
      nd.Expanded = True
      .Nodes.Add nd, tvwChild, "日小时电量曲线", "日小时电量曲线", lis("电量分析").Index
      '.Nodes.Add nd, tvwChild, "周每日电量曲线", "周每日电量曲线", lis("电量分析").Index
      .Nodes.Add nd, tvwChild, "月每日电量曲线", "月每日电量曲线", lis("电量分析").Index
      .Nodes.Add nd, tvwChild, "年每月电量曲线", "年每月电量曲线", lis("电量分析").Index
      
      Set nd = .Nodes.Add(, , "功率分析", "功率分析", lis("功率分析").Index)
      nd.Expanded = True
      .Nodes.Add nd, tvwChild, "日小时功率曲线", "日小时功率曲线", lis("功率分析").Index
      '.Nodes.Add nd, tvwChild, "周每日功率曲线", "周每日功率曲线", lis("功率分析").Index
      .Nodes.Add nd, tvwChild, "月每日功率曲线", "月每日功率曲线", lis("功率分析").Index
      .Nodes.Add nd, tvwChild, "年每月功率曲线", "年每月功率曲线", lis("功率分析").Index
      .Nodes.Add nd, tvwChild, "日小时功率因数曲线", "日小时功率因数曲线", lis("功率因数").Index
      .Nodes.Add nd, tvwChild, "年每月最大需量曲线", "年每月最大需量曲线", lis("最大需量").Index

Answer 4

放在
  With tvAnaTree  ..........
  end with中间

Answer 5

大侠们。Private Sub TV_NodeClick(ByVal node As node)
 txtXm.text = node.Text
 Dim rsName As Recordset
 Set rsName = dbYY.OpenRecordset("select * from employee where 姓名='" & txtXm & "'")
 txtBh.Text = rsName!编号
 txtXm.Text = rsName!姓名
 cmbXb.Text = rsName!性别
End Sub中的 txtXm.text = node.Text是什么意思？ 
为什么我换成 txtBh.text = node.Text 就提示我No Current Record ?