主题：目录树

分级显示目录且能显示两列，比如汽车01，汽车又可分为商用车001、乘用车002，商用车又可分为A、C、B三种类型，其中A型车的代码假如是：01.001.001，我现在想要是分级显示每种的代码及名称，比如逐级打开代码后，会显示01.001.001 A型车，现在的三种方式要么只显示代码、要么只显示物料名称，我想要的是两个都显示，甚至显示三个及以上，该怎么办？

根据多列内容生成目录树http://www.foxtable.com/help/topics/0893.htm

根据路径列和标题列生成目录树http://www.foxtable.com/help/topics/2621.htm

这两个我都看了，只能显示代码或名称，我想把两项并列显示出来 “代码 名称” ，

方法一，弄一个表达式列，把两列内容合并；

方法二，生成目录树后，循环每一个节点，修改 nd.text = nd.DataRow("代码") & " " & nd.DataRow("名称")

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.GenerateTree("物料档案", "物料编号","物料名称",".","", "物料编号 DESC")
trv.Nodes.Insert("显示所有行",0)
For Each nd As WinForm.TreeNode In trv.AllNodes
    nd.Text =nd.DataRow("物料编号") & " " & nd.DataRow("物料名称")
Next

这是我在窗口Afterload事件设置的代码，提示如下错误，不知道是什么原因。

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2015.10.26.1
错误所在事件：窗口,物料档案,AfterLoad
详细错误信息：
System.NullReferenceException: 未将对象引用设置到对象的实例。
   在 UserCode.APJL1pOId6Q78Dg9e(FormEventArgs e)

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.GenerateTree("物料档案", "物料编号","物料名称",".","", "物料编号 DESC")
trv.Nodes.Insert("显示所有行",0)
For Each nd As WinForm.TreeNode In trv.AllNodes
msgbox(nd.DataRow Is Nothing)
    nd.Text =nd.DataRow("物料编号") & nd.DataRow("物料名称")

Next

加了红色代码后，显示一次ture,然后就是提示错误

哦，这样改

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.GenerateTree("物料档案", "物料编号","物料名称",".","", "物料编号 DESC")
For Each nd As WinForm.TreeNode In trv.AllNodes
    nd.Text =nd.DataRow("物料编号") & " " & nd.DataRow("物料名称")
Next

trv.Nodes.Insert("显示所有行",0)