编程论坛 » VFP论坛 » VFP目录树问题

zhaocqdx 发表于 2008-2-17 18:58

VFP目录树问题

小弟试了将近一个月时间都没做出目录树,无奈只有请里面高手帮忙,[attach]32521[/attach]不知道那位大哥浪费点时间帮我做一下,将里面的表单做成目录树.谢谢!记得发回给我!

Tiger5392 发表于 2008-2-17 21:38

“表单做成目录树”不知道你的意思。猜想是不是在表单里添加一个目录树控件，该控件里面显示部门和姓名？

zhaocqdx 发表于 2008-2-18 16:33

对,添加一个目录树,我想用里面的部门和姓名做节点.但写了很久都没有成功.不知道版主是否能帮个忙?

Tiger5392 发表于 2008-2-18 16:58

ThisForm.OleControl1.Nodes.Clear
Select Distinct 部门 From 你的表名 Into Cursor Temp
Scan
  ThisForm.OleControl1.Nodes.Add(,,'BUMEN'+Alltirm(部门),部门)
  Select Distinct 姓名 From 你的表名 Where 你的表名.部门=Temp.部门 Into Cursor Temp1
  Select Temp1
  Scan
    ThisForm.OleControl1.Nodes.Add('BUMEN'+Alltrim(Temp.部门) ,4,'XINGMING'+Alltrim(Temp.部门)+Alltrim(姓名),姓名)
  EndScan
  Use In Temp1
  Select Temp
EndScan
Use In Temp
ThisForm.OleControl1.Refresh

zhaocqdx 发表于 2008-2-19 18:16

我把它编在控件的NOdeclick里面但是还是没用!

Tiger5392 发表于 2008-2-20 13:13

这段程序代码放在表单的Init里，我运行没有问题。

freejyl 发表于 2008-2-20 18:02

Tiger版主，这段代码是运行在VFP的哪个版本里的？
我在VFP6.0表单的INIT里加入，可是运行错误，显示不能识别的成员 OLECONTROL1

hu9jj 发表于 2008-2-20 18:25

需要将treewive控件增加进来。

查看完整版本: VFP目录树问题