还有一个简单且通用的办法:
http://www.foxtable.com/help/topics/2689.htm
http://www.foxtable.com/help/topics/2690.htm
'按常规生成目录树
For Each nd AS WinForm.TreeNode In Trv.AllNodes
If nd.DataRow IsNot Nothing Then
nd.Text = nd.Datarow("客户ID") & "客户名称"
End If
Next