'用项目事件的 BeforeLoadInnerTable对于查询者,只加载有效结束日期10天以内的机构数据行:
If e.DataTableName = "表A" AndAlso e.User.Name = "查询者" Then
Dim StartDate As Date = Date.Today().AddDays(-10)
e.Filter = "[有效结束日期] > #" & StartDate & "#"
End If
以上为第一种要求的代码
一下为第二种要求的代码
'假定对于表A要采用分页加载功能,每次加载30行.
'设计步骤:'1/2首先要确保默认不加载任何数据.'如果是内部表,'设置项目事件BeforeLoadInnerTable的代码为:
If e.DataTableName = "表A" Then
e.Filter = "[_Identify] Is Null"
End If
设计步骤:2/2在AfterOpenProject事件中设置代码,'打开加载树,每页加载30行,并默认加载第一页数据:
Tables("表A").OpenLoadTree("省|地区",150,30,True)
这两个加载目同时使用的只能实现第二种，去掉第二种要求的代码，才可以正常实现第一种要求，
请问怎样才能让两种目的同时有效，既能对于过期的数据不加载，又能实现加载树的功能？
我对代码编程一窍不通，请按照详细步骤启示。提前预谢！！！
加好友 
发短信
Post By：2014/8/8 2:12:00 [只看该作者]
