主题：[求助]新建行引用录入目录树节点内容

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:材料管理.zip

各位狐兄，大家好：

      小弟请教各位一个问题

      新建行[分类]列自动引用当前选择的目录树多级节点内容，另外单击目录树筛选时，右表能够根据目录树显示相应行数据，谢谢。

没有看明白你的问题，你不是已经设置了筛选的代码并起作用了吗？

首先谢谢狐爸的快速关注

 

现在筛选起作用了，但未能自动输入节点内容（现在是手动输入的）

我想新增行是根据目录树节点的内容，如当前选择第三级节点，新增行[分类]列引用并自动输入节点内容（一级目录/二级目录/三级目录），并能根据当前目录树的目录级别对应显示内容

 

表达能力欠佳，请谅解，谢谢

已翻阅N次帮助文件，奈何资质愚钝，请不吝赐教。

搂住研究目录树时间不短了吧，这样试试：

Dim tr As WinForm.TreeView = Forms("材料目录").Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode

tables("==").addnew()

tables("==").current("分类") = nd.fullpath

谢谢狐爸及狐兄的热心帮助，很抱歉，其实目的很简单，是我表达的不清晰弄得复杂了

 

想通过目录树节点（自定义材料的类别名称）输入材料信息，日后可以通过单击目录树的节点，右表显示相应子节点类别的材料信息。

Dim tr As WinForm.TreeView = Forms("材料目录").Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
Dim r As Row  = Tables("材料信息").addnew()
If nd.level = 0 Then
    Tables("材料信息").current("分类") = nd.Text
Else
    Tables("材料信息").current("分类") = nd.ParentNode.Text
    Tables("材料信息").current("下级") = nd.Text
End If

狐爸，你好：

     非常感谢你的热心帮助，很惭愧，我的表达能力无以言述，烦请你再次尝试理解并解答，谢谢；

 

1.新建行[分类]列内容来自于目录树当前选中的节点，若是一级目录，[分类]内容=根目录内容，若为子目录，[分类]内容=以“|”符号连接多级目录内容；

2.单击目录树节点，右表根据[分类]列的内容对应显示包含节点内容的行，举例：单击根目录“装饰材料”，右表显示包含“装饰材料”的全部行，单击子节点“ZZBV”，右表只显示包含“ZZBV”的行。

 

感觉自己的资质真的很差，但是我很喜欢狐表强大的功能，希望在狐爸你的帮助下能提升自己，可以熟悉并使用狐表，谢谢。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:材料管理.zip

如果这样更加简单，增加一个新建按钮，代码为：

 

Dim tr As WinForm.TreeView = Forms("材料目录").Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
Dim r As Row  = Tables("材料信息").addnew()
If nd IsNot Nothing Then
    Tables("材料信息").current("类别") = nd.FullPath
End If

谢谢狐爸，[分类]列内容解决了，第2个点击筛选的问题请再次指教（搞不清楚怎样筛选"包含"），再次谢谢。

 

另外能够增加判断条件最好，若新建时未选择节点则弹出提示窗口且不能新增行。

包含筛选看看：

http://www.foxtable.com/help/topics/0102.htm

http://www.foxtable.com/help/topics/1647.htm