Datagrid分页显示:
Private Sub mygrid_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles mygrid.PageIndexChanged
        mygrid.DataSource = rs    '//分页控制
        mygrid.DataBind()
        mygrid.CurrentPageIndex = e.NewPageIndex
        mygrid.DataBind()
End Sub
还可这样:
上一页
If mygrid.CurrentPageIndex > 0 Then
            mygrid.CurrentPageIndex = mygrid.CurrentPageIndex - 1
        End If
        mygrid.DataSource = rs    '//分页控制
        mygrid.DataBind()
        ShowStats()
下一页
If mygrid.CurrentPageIndex < (mygrid.PageCount - 1) Then
            mygrid.CurrentPageIndex = mygrid.CurrentPageIndex + 1
        End If
最后一页
mygrid.CurrentPageIndex = (mygrid.PageCount - 1)
首页:
<asp:LinkButton id="LinkButton1" style="Z-INDEX: 103; LEFT: 237px; POSITION: absolute; TOP: 340px" runat="server" Height="20px" Width="56px" CommandArgument="0">>首页</asp:LinkButton>
Private Sub LinkButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
        Dim arg As String = sender.CommandArgument
        mygrid.CurrentPageIndex = System.Convert.ToInt32(arg)
        mygrid.DataSource = rs    '//分页控制
        mygrid.DataBind()
    End Sub
Public Sub ShowStats()
        Label1.Text = "第 " + (mygrid.CurrentPageIndex + 1).ToString() + " 页"
        Label2.Text = "总共 " + mygrid.PageCount.ToString() + " 页"
    End Sub

解决方案 »

  1.   

    我把datagrid的自定义分页功能已经打开了
    Allowpaging=true
    Allowcustompaging=true
    为什么定义分页不好用?而默认分页好用呢!!原因在那里???
      

  2.   

    DataGrid1.CurrentPageIndex=e.NewPageIndex放在 Private Sub DataGrid1_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles DataGrid1.PageIndexChanged事件中就可以了.
      

  3.   

    完整语句:
    Private Sub DataGrid1_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles DataGrid1.PageIndexChanged
            DataGrid1.CurrentPageIndex = e.NewPageIndex
            DataGrid1.DataBind()
    End Sub