📄 ch16-06-03.aspx
字号:
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDB" %>
<Html>
<Head>
<Title>Ch16-06-03.aspx DataGrid控件的分页显示</Title>
<Script language="VB" runat="server">
'Dim SortExpression As String = "UserAccount"
Function GetDataSource() As ICollection
Dim OBJDataSet As DataSet = New DataSet()
Dim tSQL As String = "Select * From UserDatas"
GetDataSet(OBJDataSet, tSQL)
DataGrid1.DataSource = OBJDataSet.Tables("UserDatas").DefaultView
DataGrid1.DataBind()
End Function
Sub Page_Load(sender As Object, e As EventArgs)
If Not IsPostBack Then
GetDataSource()
End If
End Sub
Sub Page_Change(sender As Object, e As DataGridPageChangedEventArgs)
DataGrid1.CurrentPageIndex = e.NewPageIndex
GetDataSource()
End Sub
</Script>
<!--#Include Virtual="DataSetOP.inc" -->
</Head>
<Body>
<Center><H2>DataGrid控件的分页显示</H2>
<Form Runat="Server">
<asp:DataGrid ID="DataGrid1" Runat="Server"
AllowPaging="True"
PageSize = "2"
PagerStyle-Mode = "NumericPages"
PagerStyle-HorizontalAlign="Center"
OnPageIndexChanged = "Page_Change" />
</Form>
</Body>
</Html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -