- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于目录树录入数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101966)
-- 发布时间：2017/6/10 19:39:00
-- [求助]关于目录树录入数据
下面窗口事件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
谢谢！
此主题相关图片如下：捕获2.png谢谢！
-- 发布时间：2017/6/11 15:59:00
--
你的目录树根据的是 品牌、名称 生成的，那么你的查询条件，也要写成
Dim Filter As String = "[品牌] = \'" & Vals(0) & "\' And [系列名称] = \'" & Vals(1) & "\'"