以文本方式查看主题

-  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)

--  作者:bashanren
--  发布时间: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编辑过]

--  作者:bashanren
--  发布时间:2018/12/31 14:08:00
--  
问题已经解决,方法就在:帮助文件的“编写通用的下拉目录树”中。

[此贴子已经被作者于2019/1/1 11:25:31编辑过]