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
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
Allowpaging=true
Allowcustompaging=true
为什么定义分页不好用?而默认分页好用呢!!原因在那里???
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