以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树筛选问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=58691)
--  作者：feiyu988
--  发布时间：2014/10/22 12:58:00
--  目录树筛选问题
目录树的NodeMouseDoubleClick事件代码设置为：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If e.Node.Name = "全部" Then
Tables("物资字典Filter = ""
Else
Tables("物资字典").Filter = "物资编码 Like \'" & e.Node.Name & "%\'"
End If

 

因为数据量大，已设置为分页加载，如何改写为在datatable后台筛选，便于筛选所有数据，直接吧tables改为datatables会出错
--  作者：feiyu988
--  发布时间：2014/10/22 14:19:00
--  

自己顶顶，哪位大神给解答一下。
--  作者：有点甜
--  发布时间：2014/10/22 14:30:00
--  

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If e.Node.Name = "全部" Then
    DataTables("物资字典").LoadFilter = ""
Else
    DataTables("物资字典").LoadFilter = "物资编码 Like \'" & e.Node.Name & "%\'"
End If

DataTables("物资字典").Load