好,谢谢!
S elec t * From (Sel ect Row_Number() Over(Order by [GUID]) As RowNum, * from T7_消费明细表 With(nolock) where 1=1 And 日期 >= '2019-03-01' And 日期< = '2019-05-05' And 分院='苏州姑苏美奥') As a Wh ere RowNum >= 6001 And RowNum <= 9000
按照方式做的分页,明明分页已经生成,但是加载的数据还是第一页的 3000条,这个问题在什么地方. 而且第一页查询速度非常快, 下一页就比较慢了.
函数是这样写的
Public Sub loadData(ByVal e As Object, ByVal Filter As String)
Dim r1 As Integer = (Page - 1) * 3000 + 1
Dim r2 As Integer = Page * 3000
Dim sql As String
sql = "Se lect * From (Sel ect Row_Number() Over(Order by [GUID]) As RowNum, * from T7_消费明细表 With(nolock) where " & Filter & ") As a "
sql = sql & " Wh ere RowNum >= " & r1 & " And RowNum <= " & r2
MessageBox.Show(sql)
e.Form.StopRedraw()
DataTables(TableName1).StopRedraw()
DataTables(TableName1).SQLLoad(sql)
Tables(TableName1).Sort = "日期"
Tables(TableName1).ScrollPosition = New Point(0, 0)
DataTables(TableName1).ResumeRedraw()
end sub
执行是这样写的
Case "下一页"
If Vars("查询条件") > "" Then
If Page < Pages(e, Vars("查询条件")) Then
Page = Page + 1
loadData(e, Vars("查询条件"))
End If
End If
pages 函数是跟帮助照抄的
加好友 
发短信
Post By：2019/5/5 10:57:00 [只看该作者]
