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 = ""条件吗
加好友 
发短信
Post By：2025/1/3 10:48:00 [显示全部帖子]
