分享一下代码
Dim tr As WinForm.TreeView
tr=e.Form.Controls("TreeView1")
tr.Nodes.Add("FG1535")
Dim dt As DataTable
Dim tn As WinForm.TreeNode
For Each dr As WinForm.TreeNode In tr.Nodes
tn=dr
Next
dt=Functions.Execute("RequestDataTable","EPN数据","select * from prpart where isnull(bom_no,'')='FG1535'")
For i As Integer=0 To dt.DataRows.Count-1
tn.Nodes.Add(dt.DataRows(i)("PART_ITEM_NO"))
Next
For i As Integer=1 To 10
For Each db As WinForm.TreeNode In tr.AllNodes
dt=Functions.Execute("RequestDataTable","EPN数据","select * from prpart where isnull(bom_no,'')='" & db.Text & "'")
If db.Level=i And dt.DataRows.Count>0 Then
For j As Integer=0 To dt.DataRows.Count-1
db.Nodes.Add(dt.DataRows(j)("PART_ITEM_NO"))
Next
End If
Next
Next
此主题相关图片如下：qq截图20131128161944.png
加好友 
发短信
Post By：2013/11/28 15:01:00 [显示全部帖子]
