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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这个代码有啥问题?

共有3128人关注过本帖树形打印复制链接主题：这个代码有啥问题?

blackzhu

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

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

这个代码有啥问题? 发帖心情

Post By：2014/12/25 15:27:00 [显示全部帖子]

For Each nd As WinForm.TreeNode In trw.AllNodes

If nd.Name <> "全部BOM明细" Then

Dim r As Row = Tables(e.Form.Name & "_Table1").AddNew

For i1 As Integer = 0 To lv

r("第" & i1 & "级") = nd.nodes(i1).Text.Split("|")(0)

End If

.NET Framework 版本：2.0.50727.3655

Foxtable 版本：2014.10.23.1

错误所在事件：窗口,窗口1,Button1,Click

详细错误信息：

指定的参数已超出有效值的范围。

参数名: index

blackzhu

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

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2014/12/25 15:30:00 [显示全部帖子]

Dim dtb As New DataTableBuilder("统计")

Dim trw As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim lv As Integer = 0

For Each nd As WinForm.TreeNode In trw.AllNodes

If nd.Level > lv

lv=nd.Level

End If

For i As Integer = 0 To lv

dtb.AddDef("第" & i & "级", Gettype(String), 32)

dtb.AddDef("物品名称", Gettype(String), 32)

dtb.AddDef("规格", Gettype(String), 32)

Tables(e.Form.name & "_Table1").DataSource = dtb.BuildDataSource

For Each nd As WinForm.TreeNode In trw.AllNodes

If nd.Name <> "全部BOM明细" Then

Dim r As Row = Tables(e.Form.Name & "_Table1").AddNew

For i1 As Integer = 0 To lv

r("第" & i1 & "级") = nd.nodes(i1).Text.Split("|")(0)

End If

整个代码

主题：这个代码有啥问题?