****建立三个数据表，KM1，KM2，KM3
****VFP9.0完美运行
ThisForm.OleControl1.Nodes.Clear
THIS.LINESTYLE=1
THIS.STYLE=7
This.nodes.add(,1,'KM','会计科目')
Select Distinct 一级名称,一级编号 From d:\tree\km1 Into Cursor Temp1
Scan
  ThisForm.OleControl1.Nodes.Add('KM',4,'YJKM'+Alltrim(一级名称),一级名称)
  Select Distinct 二级名称,二级编号 From d:\tree\km2 Where km2.一级编号==Temp1.一级编号 Into CURSOR Temp2
  Select Temp2
  Scan
   ThisForm.OleControl1.Nodes.Add('YJKM'+Alltrim(Temp1.一级名称) ,4,'EJKM'+Alltrim(二级名称),二级名称)
   Select Distinct 三级名称,三级编号 From d:\tree\km3 Where km3.二级编号==Temp2.二级编号 Into CURSOR Temp3
  Select Temp3
  Scan
   ThisForm.OleControl1.Nodes.Add('EJKM'+Alltrim(Temp2.二级名称) ,4,,三级名称)
  EndScan
   Use In Temp3
   Select Temp2
  EndScan
  Use In Temp2
  Select Temp1
EndScan
Use In Temp1

“老板，来个20级树目录！”

新学的，供大家参考

谢谢分享，能把整个项目提供出来么。

我只是用一个你可能无法接受的黑色幽默提醒你，不要走错方向。
见谅！见谅！

不错的

不错！不过得提醒您，在程序中最好不要用绝对路径，否则换台电脑都有可能造成你的程序运行出错。

理论上应该可以无限级的

自身ID，级次ID，上级ID，文本项

只要树控没限制，递归调用，1万级也可以，100万也可以，1个亿，不妨试试 哈哈

[此贴子已经被作者于2018-5-18 09:52编辑过]

我已经多年不用TREE控件了，尽量使用VFP自己的控件解决问题
否则，换一台电脑，又要注册控件，烦！