- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- BOM建树 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=43028)
-- 发布时间：2013/11/28 15:01:00
-- BOM建树
buildtree不适合建BOM的tree
-- 发布时间：2013/11/28 15:03:00
--
只能手动编码生成
-- 发布时间：2013/11/28 15:04:00
--
http://www.foxtable.com/help/topics/2416.htm
-- 发布时间：2013/11/28 15:29:00
--
那可否第一次只遍历节点第一层
第二次遍历节点的第二层节点
-- 发布时间：2013/11/28 15:30:00
--
使用代码都可以自由控制的,不懂可以上个例子帮你完善一下.
-- 发布时间：2013/11/28 15:45:00
--
Dim tn As WinForm.TreeNode
tr.Nodes.Add(tn,"FG1535")
这个该怎么写
-- 发布时间：2013/11/28 16:01:00
--
不明白你的问题!
ADD函数两个参数都是字符串,一个是节点名称,一个是节点标题
-- 发布时间：2013/11/28 16:22:00
--
分享一下代码
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
-- 发布时间：2013/11/28 16:24:00
--
-- 发布时间：2013/12/6 14:08:00
--
