-- 作者: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
|