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

下面窗口事件Afterload的代码

Dim tv As WinForm.TreeView

tv = e.Form.Controls("商品选择")

tv.BuildTree("商品信息表","品牌|系列名称|型号")

下面是目录树事件NodeMouseDoubleClick的代码

If e.Node.Level = 0 Then '如果是顶层节点

Return '则返回

End If

Dim Vals() As String = e.Node.FullPath.Split("\")

Dim Filter As String = "[商品编号] = '" & Vals(0) & "' And [商品名称] = '" & Vals(1) & "'"

Dim dr As DataRow = DataTables("商品信息表").Find(Filter)

Dim r As Row = Tables("订单明细").Current

r("商品编号") = dr("商品编号")

r("商品名称") = dr("商品名称")

r("品牌") = dr("品牌")

r("单位") = dr("单位")

e.Form.Close()

下面是表事件CellButtonClick的代码

Forms("目录树录入").Open()

e.Cancel = True

请问是哪里出问题里？提示截图错误！
图片点击可在新窗口打开查看

此主题相关图片如下：捕获2.png

谢谢！

主题：[求助]关于目录树录入数据