BOM建树 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → BOM建树

共有4662人关注过本帖树形打印复制链接主题：BOM建树

longtechwj

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：659 积分：4686 威望：0 精华：0 注册：2013/6/11 17:51:00

BOM建树

Post By：2013/11/28 15:01:00 [只看该作者]

buildtree不适合建BOM的tree

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/11/28 15:03:00 [只看该作者]

只能手动编码生成

Bin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/11/28 15:04:00 [只看该作者]

http://www.foxtable.com/help/topics/2416.htm

longtechwj

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：659 积分：4686 威望：0 精华：0 注册：2013/6/11 17:51:00

Post By：2013/11/28 15:29:00 [只看该作者]

那可否第一次只遍历节点第一层

第二次遍历节点的第二层节点

Bin

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/11/28 15:30:00 [只看该作者]

使用代码都可以自由控制的,不懂可以上个例子帮你完善一下.

longtechwj

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：659 积分：4686 威望：0 精华：0 注册：2013/6/11 17:51:00

Post By：2013/11/28 15:45:00 [只看该作者]

Dim tn As WinForm.TreeNode

tr.Nodes.Add(tn,"FG1535")

这个该怎么写

Bin

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/11/28 16:01:00 [只看该作者]

不明白你的问题!

ADD函数两个参数都是字符串,一个是节点名称,一个是节点标题

http://www.foxtable.com/help/topics/0888.htm

longtechwj

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：659 积分：4686 威望：0 精华：0 注册：2013/6/11 17:51:00

Post By：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

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"))

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"))

End If

此主题相关图片如下：qq截图20131128161944.png

Bin

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/11/28 16:24:00 [只看该作者]

JoyGum

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：505 积分：3654 威望：0 精华：0 注册：2013/12/5 7:40:00

Post By：2013/12/6 14:08:00 [只看该作者]

下一主题 >> << 上一主题

主题：BOM建树