Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
2、然后在项目事件AfterOpenProject中设置代码,使得打开项目后,自动加载第一页:
With
DataTables("订单")
.LoadFilter = "" '一定要清除加载条件
.LoadTop =
20
.LoadPage =
0
.Load()
End
With
提示:由于已经在第一步设置了加载条件"[_Identify] Is Null",所以必须在AfterOpenProject事件中清除此条件,否则不会加载任何数据。
各按钮的代码如下:
按钮 | 代码 |
第一页 | With
DataTables("订单") If .LoadPage <> 0 Then .LoadTop = 20 .LoadPage = 0 .Load() End If End With |
下一页 | With
DataTables("订单") If .LoadPage < .TotalPages - 1 Then .LoadPage = .LoadPage + 1 .Load() End If End With |
上一页 | With
DataTables("订单") If .LoadPage > 0 Then .LoadPage = .LoadPage - 1 .Load() End If End With |
最末页 | With
DataTables("订单") If .LoadPage < .TotalPages - 1 Then .LoadPage = .TotalPages - 1 .Load() End If End With |
这个分页的示例,如果我需要临时改变筛选条件,比如增加性别列为“男”,这时候需要在所有翻页代码中加入 .LoadFilter = ""条件吗