在同一个页面上用两个以上datagrid控件,为什么分页就不好用了。
请前辈指点!

解决方案 »

  1.   

    我用的是xml web服务,这样不能分页了。
      

  2.   

    代码如下:
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            If Not IsPostBack Then
                binddatagrid1()
                binddatagrid2()
                binddatagrid3()
            End If
            Label1.Text = "欢迎光临管理员页面!"
        End Sub
        Sub binddatagrid1()
            Dim mygetuserlist As New getgrade
            DataGrid1.DataSource = mygetuserlist.getuserlist
            DataGrid1.DataBind()
        End Sub
        Sub binddatagrid2()
            Dim mygetgongsiuser As New getgrade
            DataGrid2.DataSource = mygetgongsiuser.getgongsiuser
            DataGrid2.DataBind()
        End Sub
        Private Sub DataGrid1_PageIndexChanged(ByVal source As System.Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs)
            DataGrid1.CurrentPageIndex = e.NewPageIndex
            binddatagrid1()
        End Sub    Private Sub Page_Error(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Error
            Response.Write(Server.GetLastError)
            Server.ClearError()
        End Sub    Private Sub DataGrid2_PageIndexChanged(ByVal source As System.Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs)
            DataGrid2.CurrentPageIndex = e.NewPageIndex
            binddatagrid2()
        End Sub
        Sub binddatagrid3()
            Dim mygetgongsidata As New getgrade
            DataGrid3.DataSource = mygetgongsidata.getgongsidata
            DataGrid3.DataBind()
        End Sub    Private Sub DataGrid3_PageIndexChanged(ByVal source As System.Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs)
            DataGrid3.CurrentPageIndex = e.NewPageIndex
            binddatagrid3()
        End Sub