示例
Private Sub Page_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
With DataGrid1
.AllowPaging = True
.PagerStyle.Mode = PagerMode.NumericPages
.PageSize = 5
.PagerStyle.PageButtonCount = 5
End With
If IsPostBack Then
DataSet11 = CType(Session("dataset"), DataSet1)
Else
SqlDataAdapter1.Fill(DataSet11)
Session("dataset") = DataSet11
DataBind()
End If
End Sub
Private Sub Page_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
With DataGrid1
.AllowPaging = True
.PagerStyle.Mode = PagerMode.NumericPages
.PageSize = 5
.PagerStyle.PageButtonCount = 5
End With
If IsPostBack Then
DataSet11 = CType(Session("dataset"), DataSet1)
Else
SqlDataAdapter1.Fill(DataSet11)
Session("dataset") = DataSet11
DataBind()
End If
End Sub
Private Sub My_grid_pageIndexChanged(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles My_grid.PageIndexChanged
My_grid.CurrentPageIndex = e.NewPageIndex
Data_bind()
End Sub
AllowPaging="True"
PageSize="10"
PagerStyle-Mode="NumericPages"
PagerStyle-HorizontalAlign="Right"
PagerStyle-NextPageText="下一页"
PagerStyle-PrevPageText="上一页"
OnPageIndexChanged="MyDataGrid_Page"
BorderColor="black"
BorderWidth="1"
GridLines="Both"
CellPadding="3"
CellSpacing="0"
Font-Name="宋体"
Font-Size="8pt"
HeaderStyle-BackColor="#aaaadd"
AlternatingItemStyle-BackColor="#eeeeee"
/>