以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树使用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77247)
--  作者：kaituozhe
--  发布时间：2015/11/13 18:34:00
--  目录树使用

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("合同明细", "合同户名|合同编号","", "合同户名")
For Each nd As WinForm.TreeNode In trv.AllNodes
    nd.Text =nd.DataRow("合同户名") & " " & nd.DataRow("合同编号")
Next

 

以上代码在两个节点上都显示 合同户名+合同编号

我想在第一级 只显示户名 第二级 显示 合同户名+合同编号

以上代码该怎么修改
--  作者：大红袍
--  发布时间：2015/11/13 19:19:00
--  

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("合同明细", "合同户名|合同编号","", "合同户名")
For Each nd As WinForm.TreeNode In trv.AllNodes

    If nd.Level = 1 Then
        nd.Text =nd.DataRow("合同户名") & " " & nd.DataRow("合同编号")

    End If
Next