- 1PS提示：因為圖層已鎖定，無法編輯圖層的處理方法
- 2Adobe Illustrator CS5 序列號大全
- 3picacg蘋果版怎么找不到|picacg ios版是不是下架了介紹
- 4ACDsee注冊碼免費分享（含ACDsee18、ACDsee10等版本）
- 5眼萌app怎么色弱測試 眼萌app色弱測試圖文說明教程
- 6蘋果iphone自動時間不準確的多種校正方法
- 7百度安全衛士好用么_百度安全衛士技巧說明
- 8PDF瀏覽器能看3D文件嗎？PDF瀏覽器看3D文件圖文詳細教程
- 9Potato(馬鈴薯聊天)怎么注冊不了|Potato不能注冊處理方法介紹
- 10Potato(土豆聊天)怎么換頭像|Potato app更改頭像方法介紹
- 11ipad版office如何激活? office365激活的圖文說明教程
- 12lumia730與830有什么區別？lumia730與830的區別
[摘要]呵呵，不是.NET的.這幾天論壇上回答問題，有人提出這個DataGrid控件的分頁。請看：?數據庫：test2000.mdb表：numbers字段：Id(自動編號)，anumber(數字)?因為DataGrid控件我們采用直接綁定記錄集來顯示數據.所以分頁處理我們采用了間接的辦法，定義另一個記錄集...
呵呵，不是.NET的.這幾天論壇上回答問題，有人提出這個DataGrid控件的分頁。
請看：
?
數據庫：test2000.mdb
表：numbers
字段：Id(自動編號)，anumber(數字)
?
因為DataGrid控件我們采用直接綁定記錄集來顯示數據.所以分頁處理我們采用了間接的辦法，定義另一個記錄集objrs，將分頁后的記錄集付給objrs.然后綁定DataGrid
'效果還不錯 , 我加了詳細地注釋?像pagesize, AbsolutePage的用法可參考msdn
?
VB中新建工程,form中添加DataGrid控件,按鈕cmdPrevious和cmdNext，文本框txtPage
'引用microsoft active data object 2.x object library
Option Explicit
Dim conn As ADODB.Connection
Dim lCurrentPage As Long
?
Private Sub cmdNext_Click()
??? lCurrentPage = lCurrentPage + 1
??? Call Loadcontrol(lCurrentPage)
End Sub
?
Private Sub cmdPrevious_Click()
??? If lCurrentPage > 1 Then
??????? lCurrentPage = lCurrentPage - 1
??????? Call Loadcontrol(lCurrentPage)
??? End If
End Sub
?
Private Sub Form_Load()
???
??? Set conn = New ADODB.Connection
??? conn.CursorLocation = adUseClient
??? conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test2000.mdb;"
?
??? lCurrentPage = 1
??? Call Loadcontrol(lCurrentPage)
?
End Sub
Private Sub Loadcontrol(lPage As Long)
??? Dim adoPrimaryRS As ADODB.Recordset
??? Dim lPageCount As Long
??? Dim nPageSize As Integer
??? Dim lCount As Long
???
??? '每頁顯示的紀錄
??? nPageSize = 10
??? Set adoPrimaryRS = New ADODB.Recordset
??? adoPrimaryRS.Open "select * from numbers", conn, adOpenStatic, adLockOptimistic
?
??? adoPrimaryRS.PageSize = nPageSize
??? '頁數
??? lPageCount = adoPrimaryRS.PageCount
??? If lCurrentPage > lPageCount Then
??????? lCurrentPage = lPageCount
??? End If
???
??? adoPrimaryRS.AbsolutePage = lCurrentPage
??? '定義另一個記錄集
??? Dim objrs As New ADODB.Recordset
??? '添加字段名稱
??? For lCount = 0 To adoPrimaryRS.Fields.Count - 1
??????? objrs.Fields.Append adoPrimaryRS.Fields(lCount).Name, adVarChar, adoPrimaryRS.Fields(lCount).DefinedSize
??? Next
??? '打開記錄集
??? objrs.Open
??? '將指定記錄數循環添加到objrs中
??? For lCount = 1 To nPageSize
??????? objrs.AddNew
??????? objrs!id = adoPrimaryRS!id
??????? objrs!anumber = adoPrimaryRS!anumber
??????? adoPrimaryRS.MoveNext
??? Next
??? '綁定
??? Set DataGrid1.DataSource = objrs
???
??? '在文本框顯示頁數
??? txtPage = lPage & "/" & adoPrimaryRS.PageCount
End Sub
?
Private Sub Form_Unload(Cancel As Integer)
??? If Not conn Is Nothing Then
??????? conn.Close
??? End If
??? Set conn = Nothing
End Sub
‘文本框中輸入頁數，回車跳轉到指定位置
Private Sub txtPage_KeyDown(KeyCode As Integer, Shift As Integer)
??? lCurrentPage = Val(txtPage.Text)
??? Call Loadcontrol(lCurrentPage)
End Sub
標簽：DataGrid也玩分頁
推薦資訊 總人氣榜
相關文章
