要想得到一个节点值，如：“工伤保险”，用x=node.text就行

如图我想取“事业支出\个人家庭补助\工伤保险”如何做到

[此贴子已经被作者于2018-2-26 23:04编辑过]

树目录列表应该有相应的键值（或ID），通过它可以在科目表检索得到。
严格来说不能按“事业支出\个人家庭补助\工伤保险”表达的路径来检索，这些只是科目名称，会计科目有些是可由用户自定义的。

.Parent.Parent.Text+"\"+.Parent.Text"\"+.Text

[此贴子已经被作者于2018-2-27 11:06编辑过]

这是目录源代码，我明白你说的那个意思，但是不明白怎么取，希望指点，谢谢
象KM，'YJKM'+Alltrim(一级名称),'EJKM'+Alltrim(二级名称),'SJKM'+Alltrim(Temp3.级名称),便是节点名称
****建立三个数据表，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,'SJKM'+Alltrim(Temp3.级名称),三级名称)
EndScan
Use In Temp3
Select Temp2
EndScan
Use In Temp2
Select Temp1
EndScan
Use In Temp1

[此贴子已经被作者于2018-2-27 15:59编辑过]

具体内容不清楚，如使用的树目录列表控件、科目表数据
最好给个示例测试看看

node有parent属性啊，3楼不是已经说得很清楚了吗？

非常感谢你已经做出了，x= ALLTRIM(node.Parent.parent.text)+'\'+ALLTRIM(node.parent.text)+'\'+ALLTRIM(node.text)
这是选三层节点的
还有一个问题请教：
就是如何判断所选的是第几层节点，这个是哪个属性。
不知我说没说明白

[此贴子已经被作者于2018-3-1 23:12编辑过]

循环判断父节点是否为空，为空时结束循环，取得已循环的次数

如果父结点不存在时，会提示对象不存在，如何判断是否为空，能提供下大概代码吗，初学，太笨，谢谢

isnull