以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  关于loadfilter与追载，求助。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94006)

--  作者：yancheng --  发布时间：2016/12/13 10:05:00 --  关于loadfilter与追载，求助。 Dim filter As String If e.Node.Text = "所有预算" Then filter = "" Else     Dim dr As DataRow = e.Node.DataRow     Dim d1 As Date     Dim d2 As Date     Dim year As Integer = dr("年")     d1 = new Date(year,1,1)     d2 = new Date(year,12,31)     Select Case e.Node.Level         Case 2             filter = "预算名称 = \'" & dr("预算名称") & "\' and  合同名称 = \'" & dr("合同名称") & "\' And 发包单位 = \'" & dr("发包单位") & "\'"     End Select End If DataTables("合同预算").RemoveFor(filter) DataTables("合同预算").AppendLoad(filter) Tables("合同预算").filter = filter 我目录树的加载 筛选， 如果 filter 为空， AppendLoad会提示不能为空。 如果 用loadfilter就不会出这个问题。 但是，我loadfilter 是重新加载，没有包括已经加载的数据。（原有已加载 的，怎么保留呢？） 此主题相关图片如下：3.jpg

--  作者：有点蓝 --  发布时间：2016/12/13 10:20:00 --   If filter > "" Then DataTables("合同预算").RemoveFor(filter)     DataTables("合同预算").AppendLoad(filter) Tables("合同预算").filter = filter End If

--  作者：yancheng --  发布时间：2016/12/13 10:32:00 --   If filter > "" Then     DataTables("合同预算").RemoveFor(filter)     DataTables("合同预算").AppendLoad(filter)     Tables("合同预算").filter = filter Else      DataTables("合同预算").LoadFilter = filter     DataTables("合同预算").load     Tables("合同预算").filter = filter End If 是不是全部代码，这样写？

--  作者：有点蓝 --  发布时间：2016/12/13 10:45:00 --   是的，测试有问题吗