Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes Dim tr As Row = Tables("sys_company").Current Dim dr As DataRow = DataTables("sys_company").Find("companycn='" & nd.Text & "'") If dr IsNot Nothing Then '如果在表找到对应的行,则将此行的值写入客户表的当前行. nd.text=nd.text & "(" & dr("itemnum") & ")" End If Next