加入红色代码后,没有反应了。
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.nodes.count < 0 Then
Dim dr1 As DataRow = e.Node.DataRow
Dim b As WinForm.TreeView = e.Form.Controls("TreeView2")
b.GenerateTree("工作内容","编号","工作内容", ".","编号 like '" & dr1("项目编码") & "%'")
For Each n As WinForm.TreeNode In b.AllNodes
If n.Level = 1 Then
Dim dr As DataRow = n.DataRow
For Each drr As DataRow In DataTables("定额库").Select("代码 in ('" & dr("代码").replace(";","','") & "')")
n.Nodes.Add(drr("名称"))
Next
End If
Next
b.ExpandAll()
End If
Next