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

此主题相关图片如下：目录树.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编辑过]

主题：[求助][如何将目录树所选值传递给表