以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请求帮助;关于目录树显示二列数据的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=25829)

--  作者:kevin
--  发布时间:2012/11/17 23:46:00
--  请求帮助;关于目录树显示二列数据的问题

图片点击可在新窗口打开查看此主题相关图片如下:请教.png
图片点击可在新窗口打开查看

--  作者:blackzhu
--  发布时间:2012/11/18 9:47:00
--  
Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = e.form.Controls("TreeView1")
For Each r  As Row In Tables("合同").Rows
    Dim v As String = r("客户编号") & "【" & r("客户名称") & "】"
    Dim v1 As String =r("合同编号")
    nd= tr.Nodes.add(v,v)
    nd.Nodes.Add(v1,v1)
Next