- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 如何在目录树提取该节点的字段值 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=105324)
-- 发布时间：2017/8/17 7:07:00
-- 如何在目录树提取该节点的字段值
如何在目录树提取该节点的字段值
生成代码如下：
刷新目录树数据_分类
此主题相关图片如下：qq图片20170816203751.png
左侧目录表生成如下：
Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView_分类")
trv1.GenerateTree("jxc_jgfl","tx_sn","tx_name",".")
右侧临时表生成如下
此主题相关图片如下：qq图片20170816203819.png
dtb.Build()
Tables(e.Form.Name & "_table1").ShowCheckBox = True
Dim cmd As new SQLCommand
Dim dt As DataTable
查询代码上传不了，提示出错！
此主题相关图片如下：qq图片20170817071059.png
[此贴子已经被作者于2017/8/17 7:17:00编辑过]
-- 发布时间：2017/8/17 7:10:00
--
上面左侧节点单击节点后，取得节点数据名称具体的数值，【FullName如果希望双击某个节点，能够从物料编码表中筛选出此节点(含子节点)下的所有行，可以将NodeMouseDoubleClick事件代码设置为：】并筛选重新加载右侧临时表中的值
[此贴子已经被作者于2017/8/17 7:51:58编辑过]
-- 发布时间：2017/8/17 7:11:00
--
[此贴子已经被作者于2017/8/17 7:13:27编辑过]
-- 发布时间：2017/8/17 9:27:00
--
方法一：afterselectnode事件
Dim dr As DataRow = e.node.DataRow
msgbox(dr("tx_sn"))
msgbox(dr("tx_name"))
方法二：afterselectnode事件
Dim ary() As String = e.Node.FullName.Split("\\")
msgbox(ary(0))
msgbox(ary(1))