如何将数据实现每10条记录分页
---------------------------------------------------
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\data.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select id,title from Data order by id asc"
Adodc1.Refresh

sTitle = "< ID|<标题"
MSHFlexGrid1.FormatString = sTitle

MSHFlexGrid1.ColWidth(0) = 400
MSHFlexGrid1.ColWidth(1) = 4000

End Sub

Private Sub Image1_Click()
sTemp = Text3.Text
Form2.Show
End Sub

Private Sub MSHFlexGrid1_DblClick()
sTemp = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0)
Form5.Show
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer) '在form上敲回车触发事件
If KeyAscii = 13 Then
    KeyAscii = 0 '如果按下的是回车键，注意回车Asc码是13
Image1_Click '那么执行command1点击事件
End If
End Sub
Private Sub Image2_Click()
Form3.Show
End Sub

自己研究出来了！有需要的，可以留意分享

很高兴来到本站 以后与大家一起学习交流