- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助][如何将目录树所选值传递给表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129542)
-- 发布时间：2018/12/31 0:18:00
-- [求助][如何将目录树所选值传递给表
此主题相关图片如下：目录树.png
各位大师节日辛苦！！！
以上是我在窗口中通过“员工资料”表为数据源创建的目录树。现在的问题是如何将目录树中选定的值传递给表“费用总表”中的当前的“姓名”列并填写其选定值。谢谢大师。
我在NodeMouseClickk 的代码如下，但不能实现：
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("姓名")
e.Form.Close()
[此贴子已经被作者于2018/12/31 0:34:55编辑过]
-- 发布时间：2018/12/31 14:08:00
--
问题已经解决，方法就在：帮助文件的“编写通用的下拉目录树”中。
[此贴子已经被作者于2019/1/1 11:25:31编辑过]