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 IfNext
加好友 
发短信
Post By：2015/11/13 19:19:00 [显示全部帖子]
