如何让VB中的datagrid在显示数据的时候有翻页功能呢？

Question

有没有控件，或者如何编码实现呢？

Answer 1

http://blog.csdn.net/online/archive/2004/08/05/66417.aspx

Answer 2

online(龙卷风V3.0--笑傲江湖) ，你的这个有点bug,就是在翻页翻到最后了，没有判断语句，程序就会自动报错！

Answer 3

有判断啊
没有出现你说的问题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 IfEnd Sub

Answer 4

你可以自己试试你的代码，当数据不足一页的时候，就会报错的，所以我做了一下改动，改后的地方的代码如下：
    For lCount = 1 To nPageSize
        If Not (adoPrimaryRS.EOF Or adoPrimaryRS.BOF) Then
            objrs.AddNew
            objrs!PRIV_ID = adoPrimaryRS!PRIV_ID
            objrs!Priv_name = adoPrimaryRS!Priv_name
            objrs!Menu_name = adoPrimaryRS!Menu_name
            objrs!Menu_level = adoPrimaryRS!Menu_level
            objrs!Parent_menu = adoPrimaryRS!Parent_menu            adoPrimaryRS.MoveNext
        Else
            GoTo L1
        End If
    Next
L1:
    '绑定
    Set DataGrid1.DataSource = objrs
    '在文本框显示页数