任务四
设计一个根据需要动态加载数据的按钮。
我们用“订单2”表来测试,希望打开项目的时候,该表不加载任何数据,由用户选择加载哪一个时间段的数据。
首先要做的是在项目的BeforeLoadInnerTable事件中设置如下代码:
If
e.DataTableName
= "订单2" Then
e.Filter
= "False"
End
If
这样打开项目之后,“订单2”表不会加载任何数据。
然后在菜单中增加一个的菜单按钮,标题设为“加载数据”,给该菜单按钮的项目集合中增加两个标准按钮:
名称 | 标题 |
Q1 | 一季度 |
Q2 | 二季度 |
Q1的代码设为:
DataTables("订单2").LoadFilter
= "[日期] Between #1999-1-1# And
#1999-2-28#"
DataTables("订单2").Load()
Q2的代码设为:
DataTables("订单2").LoadFilter
= "[日期] Between #1999-3-1# And
#1999-5-31#"
DataTables("订单2").Load()
这样打开项目后,单击Q1和Q2,分别会加载第一季度和第二季度的数据。