项目的BeforeLoadOuterTable代码如下:
If e.DataTableName = "出库主表" AndAlso e.User.Name = "开发者" Then
e.SelectString = "Select * From 出库主表 Where ID < 0"
End If
If e.DataTableName = "出库明细" AndAlso e.User.Name = "开发者" Then
e.SelectString = "Select * From 出库明细 Where ID < 0"
End If
主窗口的“出库主表”按钮代码如下:
DataTables("出库主表").LoadFilter = "[ID] <> '0'" '通过ID来排序.
DataTAbles("出库主表").LoadTop = 100
DataTables("出库主表").LoadOrder = "ID Desc"
DataTables("出库主表").Load
可以动态加载最新100条记录,可以实现,OK!!!!
但是如果点击加载按钮全部加载时,只也只能加载100条,是不是BUG?
DataTables("出库主表").LoadFilter = "[ID] <> '0'"
DataTables("出库主表").Load
DataTables("出库明细").LoadFilter = "[ID] <> '0'"
DataTables("出库明细").Load
[此贴子已经被作者于2009-10-19 10:22:25编辑过]