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

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

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

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

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

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

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

需要将treewive控件增加进来。

你好，三级目录代码怎么写，谢谢。

你好，三级目录代码怎么写，谢谢。