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
加好友 
发短信
Post By：2016/12/13 10:05:00 [只看该作者]
