后在窗口的AfterLoad加入了条件判断，判断订单管理主窗口是否已经打开，如果打开，则加载当前页，如果没有打开，则加载第一页，这样以来，修改后返回到“订单管理”功能区，可以实现，停留在修改前的数据页面，但有出现了个问题，就是，关掉“订单管理”功能区，在重新打开后，就停留在刚才修改前的页面了，不是重新加载第一页的数据了。
'****************************
'加载第一页数据
'****************************
If Forms("订单管理主窗口").Opened Then '正常打开
With DataTables("订单表")
.LoadFilter = "" '属性 字符型,用于设置重新加载数据的条件表达式,语法和所使用的数据源有关.
.LoadOrder = "订单表_订单编号" '属性 字符型,指定加载数据的顺序.
.LoadOver = "订单表_订单编号" '属性 字符型,用于指定分页加载依据列.
.LoadTop = 10 '属性 字符型,指定要加载的行数,如果是分页加载,则用于指定每页的行数.通常和LoadOrder配合使用
.LoadReverse = True '属性 逻辑型,是否倒序加载,即是否先加载新数据,此属性只有在分页加载的时候才有效.
e.Form.Controls("TextBox1").Value =( .LoadPage + 1) & "/" & .TotalPages
End With
Else
With DataTables("订单表")
.LoadFilter = "" '属性 字符型,用于设置重新加载数据的条件表达式,语法和所使用的数据源有关.
.LoadOrder = "订单表_订单编号" '属性 字符型,指定加载数据的顺序.
.LoadOver = "订单表_订单编号" '属性 字符型,用于指定分页加载依据列.
.LoadTop = 10 '属性 字符型,指定要加载的行数,如果是分页加载,则用于指定每页的行数.通常和LoadOrder配合使用
.LoadReverse = True '属性 逻辑型,是否倒序加载,即是否先加载新数据,此属性只有在分页加载的时候才有效.
.LoadPage = 0 '属性 整数型,指定要加载的页号.
' .TotalPages = '属性 整数型,返回分页加载时,总的可加载总页数.
.Load() '方法 加载数据.
e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages
End With
Tables("订单表").Sort = "订单表_订单编号 DESC"
End If
[此贴子已经被作者于2016/1/4 8:39:36编辑过]
加好友 
发短信
Post By：2016/1/2 13:33:00 [只看该作者]
