With DataTables(e.Form.Name & "_tblCustInfo")
Dim filter As String = ""
If .LoadPage <> 0 Then
filter = "[CustLv] <> '无效' And [CustLv] <> 'D'And [CustLv] <> 'E'"
.LoadTop= "CustInfoUpdateDate"
.LoadReverse = True
.LoadFilter = filter
.LoadTop = 500
.LoadPage = 0
.Load(False)
e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages
End If
End With
Tables(e.Form.Name & "_tblCustInfo").Sort = "CustInfoUpdateDate DESC"
使用如上分页加载 但是按序加载时 并没有完全按照CustInfoUpdateDate倒叙去加载 CustInfoUpdateDate为时间列 精确至秒
[此贴子已经被作者于2015/9/2 20:47:44编辑过]