分页显示数据记录的例子如先显示前20条，再显示后20条(50分）

[wenejiang]

分页显示数据记录的例子(源码）如先显示前20条，再显示后20条(50分）

[Cooly]

用PageSize.

PageSize=20

[wenejiang]

我想要源码！！！我的email是[e-mail]

[wenejiang]

我如果检索到1万条记录，我先显示前200条，然后再滚动显示
我该用什么样的游标类型，和游标位置

[MoQi_123]

Dim intTop as Intege
Dim strSQL as String

intTop=0
'第一次查询前20条
strSQL="Select Top 20 From YOurTable order by ID"

'查询后面的20条记录
intTop=intTop + 20
strSQL="Select Top 20 From YourTable Where ID not in (Select Top " & intTop & " From YourTable order by ID"

[maskzha]

This example displays the next page in a multipage file, and determines whether there is another page to display.

Private Sub cmdNextPage_Click()
Dim lngNewPg As Long

lngNewPg = ImgEdit1.Page + 1
'Determine if there is a next page to be displayed
'by finding out the number of pages in the file
If lngNewPg > ImgEdit1.PageCount Then
MsgBox "Page Number is out of range"
'Don't set page property
Exit Sub
End If

ImgEdit1.Page = lngNewPg
ImgEdit1.Display
End Sub

[岁月无声-我心飞翔]

PageSize=20