主题：关于只加载有效期内的数据

'用项目事件的 BeforeLoadInnerTable初始不加载机构表
Select Case e.DataTableName
    Case "机构"
        e.Filter = "[_Identify] Is Null"
End Select

'从始至终不加载机构表
'If e.DataTableName = "机构" Then
'    e.Filter = "[_Identify] Is Null"
'End If

'用项目事件的 BeforeLoadInnerTable对于查询者,只加载有效结束日期10天以内的机构数据行:
If e.DataTableName = "机构" AndAlso e.User.Name = "查询者" Then
    Dim StartDate As Date = Date.Today().AddDays(-10)
    e.Filter = "[有效结束日期] > #" & StartDate & "#"
End If

'下列功能会导致对于过期限制加载的功能失效在AfterOpenProject事件中设置代码,
Tables("机构").OpenLoadTree("应存|省|地区|市",160,1000,True)

DataTables("机构").LoadOver = "应存"
DataTables("机构").LoadPage = 0
DataTables("机构").LoadTop = 1000
DataTables("机构").Load

请行家帮我查看错在哪里？最终目的假如数据量达到几十万行，能够结合筛选树实现永远对于过期数据不加载。

说明：为了限制某些日期我定义了个应存的列，点击应存级别类以至于延续到省地区市等，但是如果点击加载所有行后，对于过期加载的功能无效。

不知道错在哪里，希望在加载树模块里面设置一个“加载条件”选项：定义只加载“大于”、“等于”、“小于”某“日期”（使用内置输入器），并设置一个选项：隐藏“加载所有行”。

这是发布后的文件请Bin查阅！谢谢！让您费心了。