主题：目录树筛选

messagebox.show(tables(s).Filter)

估计都和我一样，没有看懂你的代码，不过你的代码肯定不是筛选当前表，你的代码筛选了好多好多好多次：

 

 

For Each dr As DataRow In DataTables("管理表").DataRows

    For Each nd As WinForm.TreeNode In trv.AllNodes

       Tables(Nd.Text).Filter = “xxx”

   Next

Next

 

这样的代码，如果有100行，目录树有100个节点，最多就有删选了10000次，至少了筛选了100此，而且表名是nd.text，并不是当前表。

这里有现成的例子：

 

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

 

你的表名肯定不是保存在节点名称中吧？

 

我建议你用一个public全局变量来保存表名，你根据哪个表名生成的目录树，就将哪个表名保存在全局变量中。

这样只需：

 

Tables(变量名).Filter = .....