主题：请问目录树筛选窗口表后，怎样增加行？

1、你的图片别人看不见。

2、不能通过nd.FullPath来查询，应该拆分或者直接根据节点的标题来查询，建议看看：

搞不定，就做个例子传上来。

1、代码：

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
Dim Value As String = nd.FullPath '选定树标题
Dim dst As Table = Tables("货品信息_Table1")
 dst.Filter = "[货品类型] like '*" & value & "*'"

你原来的表名错了，而且筛选条件多了一个空格。

2、另外增加一个"刷新目录树"按钮，用于在分类有变化后，重新生成目录树。