代码
'''
Dim dr As DataRow = e.Node.DataRow
Dim b As WinForm.TreeView = e.Form.Controls("TreeView2")
b.GenerateTree("工作内容","编号","工作内容", ".","编号 like '" & dr("项目编码") & "%'")
For Each node As Object In b.Nodes
Dim cdr As DataRow = node.DataRow
If cdr.IsNull("代码") = False
For Each dm As String In cdr("代码").Split(new Char() {",", "、"})
For Each r As DataRow In DataTables("定额库").Select("代码 = '" & dm & "'")
node.nodes.Add(r("代码"), r("名称"))
Next
Next
End If
Next
主意全角半角 http://www.foxtable.com/help/topics/1273.htm
加好友 
发短信
Post By：2015/3/19 12:00:00 [显示全部帖子]
