ASP.NET 網頁製作教本 -- 從基本語法學起 第 8 章 DataGrid 與
Download
Report
Transcript ASP.NET 網頁製作教本 -- 從基本語法學起 第 8 章 DataGrid 與
ASP.NET 網頁製作教本 –
從基本語法學起
第 8 章 DataGrid 與 DataTable
8-1 DataTable 的資料結構
DataTable 的資料結構
DataColumn
抬頭
資料表
內容
股票代號
0001
0002
0003
股票名稱 收盤價 漲跌 最高價 最低價 成交量
18.7 -0.3
18.8
18.6
3550
鴻 運
24.2 -0.5
24.6
24.2 11801
福 元
24.9 -0.1
25
24.9
177
成 長
DataRow
DataRow
DataRow
9919
9921
康那香
巨 大
DataRow
DataRow
56
62.5
1.5
2.5
57
63
54.5
60.5
659
4824
DataTable 的建構：開啟資料庫
員工資料
成績單
股票行情表
股票代號
0001
0002
0003
0004
0005
0006
0011
0012
0013
0014
0015
0018
股票名稱 收盤價 漲跌 最高價 最低價 成交量
鴻 運
18.7 -0.3
18.8
18.6
3550
福 元
24.2 -0.5
24.6
24.2 11801
成 長
24.9 -0.1
25
24.9
177
國 民
21.3 -0.4
21.5
21.1
1738
成 功
17.2 -0.4
17.5
17.2
175
鴻 福
17.5 -0.3
17.6
17.5
98
和 信
16.1 -0.3
16.3
15.6
724
多 元
13.35 -0.05
13.4
13.1 21409
永 昌
10.9 -0.15
11
10.8
1976
統 信
17.9 -0.1
18
17.8
737
富 邦
17.6 -0.3
17.8
17.5
2714
怡 富
19.6 -0.6
20
19.6
6630
Table01.aspx Part I
<!-- #include File="Mdb.vb" -->
<Html>
<Body BgColor="White">
<H3>DataTable的建構：開啟資料庫<HR></H3>
<asp:Label runat="server" id="Msg" /><p>
<HR></Body>
</Html>
Table01.aspx Part II
<script Language="VB" runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
Dim Table As System.Data.DataTable
Table = OpenMdbTable( "Sample.mdb", "股票行情表" )
If Not Table Is Nothing Then
Msg.Text = "已經建構好 DataTable!"
End If
End Sub
</script>
Table02.aspx Part I
<%@ Import Namespace="System.Data" %>
<!-- #include File="Mdb.vb" -->
<Html>
<Body BgColor="White">
<H3>DataTable的建構：開啟資料庫<HR></H3>
<asp:Label runat="server" id="Msg" /><p>
<HR></Body>
</Html>
Table02.aspx Part II
<script Language="VB" runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
Dim Table As DataTable
Table = OpenMdbTable( "Sample.mdb", "股票行情表" )
If Not Table Is Nothing Then
Msg.Text = "已經建構好 DataTable!"
End If
End Sub
</script>
DataTable 的建構：逐欄逐列填
入資料
1.
2.
3.
將資料填入 DataTable 大致可以分成三
道程序：
建立 DataTable 物件：使用 New
DataTable 的方式先建立好物件 。
建立欄位：包含欄位抬頭及其資料型別
的建立 。
加入資料列：根據實際的資料列數(或
稱「資料筆數」)，逐列加入於
DataTable之中。
實例 (1)
有四個陣列資料如下：
Dim 姓名() = { “陳桶一”, “黃光權”, “胡生妙”,
“王為全”, _
“李日正”, “劉德菖”,
“方正一”, “劉康寶”, _
"謝掬花", "王美蘭", "徐小噹", "葉小毛" }
Dim 國文() = { 90, 58, 41, 95, 59, 28, 98, 0, 95, 41, 91, 0 }
Dim 英文() = { 76, 77, 14, 97, 66, 11, 100, 0, 74, 46, 99, 10 }
Dim 數學() = { 98, 75, 33, 87, 57, 33, 100, 10, 89, 49, 84, 0 }
實例 (2)
將其填入 DataTable 成為以下結構：
姓名
陳桶一
黃光權
胡生妙
王為全
李日正
劉德菖
方正一
劉康寶
謝掬花
王美蘭
徐小噹
葉小毛
國文 英文 數學
90
76
98
58
77
75
41
14
33
95
97
87
59
66
57
28
11
33
98
100 100
0
0
10
95
74
89
41
46
49
91
99
84
0
10
0
Table03.aspx 節錄 Part I,II
' Part 1: 宣告並且建立 DataTable 物件
Dim Table As New DataTable
' Part 2: 建立欄位
Table.Columns.Add(New DataColumn("姓名", GetType(String)))
Table.Columns.Add(New DataColumn("國文", GetType(Integer)))
Table.Columns.Add(New DataColumn("英文", GetType(Integer)))
Table.Columns.Add(New DataColumn("數學", GetType(Integer)))
Table03.aspx 節錄 Part III
' Part 3: 加入資料列
For I = 0 To UBound(姓名)
Dim Row As DataRow
Row = Table.NewRow()
Row("姓名") = 姓名(I)
Row("國文") = 國文(I)
Row("英文") = 英文(I)
Row("數學") = 數學(I)
Table.Rows.Add(Row)
Next
8-2 DataGrid 初體驗
DataGrid 的安插與資料繫結
Grid01.aspx Part I
<%@ Import Namespace="System.Data" %>
<!-- #include File="Mdb.vb" -->
<Html>
<Body BgColor="White"><Center>
<H3>Grid01.aspx -- 用 DataGrid 顯示 DataTable 的資料<HR></H3>
<asp:DataGrid runat="server" id="MyGrid" />
<p>
<HR></Center></Body>
</Html>
Grid01.aspx Part II
<script Language="VB" runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
Dim Table As DataTable
Table = OpenMdbTable( "Sample.mdb", "股票行情表" )
' DataGrid 與 DataTable 的資料繫結
MyGrid.DataSource = Table.DefaultView
MyGrid.DataBind()
End Sub
開啟其他資料庫(表)
設定 DataGrid 的外觀
想改變 DataGrid 的外觀，讓它從下圖(左)
變成下圖(右)：
Grid02.aspx
Grid03.aspx
Grid03.aspx Part I
<%@ Import Namespace="System.Data" %>
<!-- #include File="Mdb.vb" -->
<Html>
<Body BgColor="White"><Center>
<H3>Grid03.aspx -- 設定DataGrid的外觀<HR></H3>
<asp:DataGrid runat="server" id="MyGrid"
HeaderStyle-BackColor="#AAAADD"
AlternatingItemStyle-BackColor="#FFFFC0"
BorderColor="Black"
CellPadding="2"
CellSpacing="0" />
<p>
<HR></Center></Body>
</Html>
Grid03.aspx Part II
<script Language="VB" runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
Dim Table As DataTable
Table = OpenMdbTable( "Sample.mdb", "成績單" )
' DataGrid 與 DataTable 的資料繫結
MyGrid.DataSource = Table.DefaultView
MyGrid.DataBind()
End Sub
</script>
設定 DataGrid 的外觀—
特殊的屬性 Part I
HeaderStyle-BackColor：用來設定第一列
(抬頭列)的背景顏色。
HeaderStyle-BackColor 屬性
用來設定這一列的背景顏色
設定 DataGrid 的外觀—
特殊的屬性 Part II
AlternatingItemStyle-BackColor：用來設
定間隔一列的背景顏色。
AlternatingItemStyle-BackColor 屬性
用來設定這一列的背景顏色
BorderColor：表格邊框的顏色。
8-3 可以分頁瀏覽的 DataGrid
可以分頁瀏覽的 DataGrid
分頁瀏覽的基礎
Grid04.aspx
上一頁連結
下一頁連結
Grid04.aspx Part I
<%@ Import Namespace="System.Data" %>
<!-- #include File="Mdb.vb" -->
<Html>
<Body BgColor="White"><Center>
<H3>Grid04.aspx -- 分頁瀏覽的基礎<HR></H3>
<Form runat="server">
<asp:DataGrid runat="server" id="MyGrid"
AllowPaging="True"
PageSize="10"
OnPageIndexChanged="ChangePage"
HeaderStyle-BackColor="#AAAADD"
AlternatingItemStyle-BackColor="#FFFFC0"
BorderColor="Black"
CellPadding="2"
CellSpacing="0" />
</Form>
Grid04.aspx Part II
<p>
<HR></Center></Body>
</Html>
<script Language="VB" runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
Dim Table As DataTable
Table = OpenMdbTable( "Sample.mdb", "成績單" )
MyGrid.DataSource = Table.DefaultView
MyGrid.DataBind()
End Sub
Grid04.aspx Part III
Sub ChangePage(sender As Object, e As DataGridPageChangedEventArgs)
MyGrid.CurrentPageIndex = e.NewPageIndex
Dim Table As DataTable
Table = OpenMdbTable( "Sample.mdb", "成績單" )
MyGrid.DataSource = Table.DefaultView
MyGrid.DataBind()
End Sub
</script>
執行效能問題
Grid04.aspx第一次被瀏覽
> 被按下
2.
DataGrid
5.
DataGrid
1.
Page_Load
3.
Page_Load
ChangePage
4.
ChangePage
利用 IsPostBack 解決執行效能
問題 (Grid04b.aspx 節錄)
Sub Page_Load(sender As Object, e As EventArgs)
If Not IsPostBack Then
' 網頁第一次被瀏覽
Dim Table As DataTable
Table = OpenMdbTable( "Sample.mdb", "成績單" )
MyGrid.DataSource = Table.DefaultView
MyGrid.DataBind()
End If
End Sub
Grid04c.aspx 節錄 Part I
<script Language="VB" runat="server">
Sub OpenDataBase_And_BindToDataGrid()
Dim Table As DataTable
Table = OpenMdbTable( "Sample.mdb", "成績單" )
MyGrid.DataSource = Table.DefaultView
MyGrid.DataBind()
End Sub
Grid04c.aspx 節錄 Part II
Sub Page_Load(sender As Object, e As EventArgs)
If Not IsPostBack Then
OpenDataBase_And_BindToDataGrid()
End If
End Sub
Sub ChangePage(sender As Object, e As DataGridPageChangedEventArgs)
MyGrid.CurrentPageIndex = e.NewPageIndex
OpenDataBase_And_BindToDataGrid()
End Sub
</script>
將 < 及 > 改成 上一頁 及 下一頁
Grid04c.aspx
Grid05.aspx
Grid05.aspx Part I
<%@ Import Namespace="System.Data" %>
<!-- #include File="Mdb.vb" -->
<Html>
<Body BgColor="White">
<H3>Grid05.aspx -- 將 < 及 > 改成「上一頁」及「下一頁」<HR></H3>
<Form runat="server">
<asp:DataGrid runat="server" id="MyGrid"
AllowPaging="True"
PageSize="10"
OnPageIndexChanged="ChangePage"
Grid05.aspx Part II
PagerStyle-HorizontalAlign="Right"
PagerStyle-NextPageText="下一頁"
PagerStyle-PrevPageText="上一頁"
HeaderStyle-BackColor="#AAAADD"
AlternatingItemStyle-BackColor="#FFFFC0"
BorderColor="Black"
CellPadding="2"
CellSpacing="0" />
</Form>
<p>
<HR></Center></Body>
</Html>
Grid05.aspx Part III
<script Language="VB" runat="server">
Sub OpenDataBase_And_BindToDataGrid()
Dim Table As DataTable
Table = OpenMdbTable( "Sample.mdb", "成績單" )
MyGrid.DataSource = Table.DefaultView
MyGrid.DataBind()
End Sub
Grid05.aspx Part IV
Sub Page_Load(sender As Object, e As EventArgs)
If Not IsPostBack Then
OpenDataBase_And_BindToDataGrid()
End If
End Sub
Sub ChangePage(sender As Object, e As DataGridPageChangedEventArgs)
MyGrid.CurrentPageIndex = e.NewPageIndex
OpenDataBase_And_BindToDataGrid()
End Sub
</script>
將 < 及 > 改成 1 2 3 4 … 的頁次連結
Grid04c.aspx
Grid06.aspx
Grid06.aspx Part I
<%@ Import Namespace="System.Data" %>
<!-- #include File="Mdb.vb" -->
<Html>
<Body BgColor="White"><Center>
<H3>Grid06.aspx -- 將 < 及 > 改成 1 2 3 4 … 的頁次連結<HR></H3>
<Form runat="server">
<asp:DataGrid runat="server" id="MyGrid"
AllowPaging="True"
PageSize="10"
OnPageIndexChanged="ChangePage"
Grid06.aspx Part II
PagerStyle-Mode="NumericPages"
PagerStyle-HorizontalAlign="Right"
HeaderStyle-BackColor="#AAAADD"
AlternatingItemStyle-BackColor="#FFFFC0"
BorderColor="Black"
CellPadding="2"
CellSpacing="0" />
</Form>
<p>
<HR></Center></Body>
</Html>
Grid06.aspx Part III
<script Language="VB" runat="server">
Sub OpenDataBase_And_BindToDataGrid()
Dim Table As DataTable
Table = OpenMdbTable( "Sample.mdb", "股票行情表" )
MyGrid.DataSource = Table.DefaultView
MyGrid.DataBind()
End Sub
Grid06.aspx Part IV
Sub Page_Load(sender As Object, e As EventArgs)
If Not IsPostBack Then
OpenDataBase_And_BindToDataGrid()
End If
End Sub
Sub ChangePage(sender As Object, e As DataGridPageChangedEventArgs)
MyGrid.CurrentPageIndex = e.NewPageIndex
OpenDataBase_And_BindToDataGrid()
End Sub
</script>
8-4 DataGrid 與欄位設定
自定欄位抬頭及對齊方式
Grid05.aspx
靠左對齊
Grid07.aspx
靠右對齊
Grid07.aspx
Part
I
<%@ Import Namespace="System.Data" %>
<!-- #include File="Mdb.vb" -->
<Html>
<Body BgColor="White"><Center>
<H3>Grid07.aspx -- 自定欄位抬頭及對齊方式<HR></H3>
<Form runat="server">
<asp:DataGrid runat="server" id="MyGrid"
AllowPaging="True"
PageSize="10"
OnPageIndexChanged="ChangePage"
PagerStyle-HorizontalAlign="Right"
PagerStyle-NextPageText="下一頁"
PagerStyle-PrevPageText="上一頁"
HeaderStyle-BackColor="#AAAADD"
AlternatingItemStyle-BackColor="#FFFFC0"
BorderColor="Black"
CellPadding="2"
CellSpacing="0"
Grid07.aspx Part II
AutoGenerateColumns="false" >
<Columns>
<asp:BoundColumn DataField="學號" HeaderText="學號" />
<asp:BoundColumn DataField="姓名" HeaderText="姓名" />
<asp:BoundColumn DataField="國文" HeaderText="國語"
ItemStyle-HorizontalAlign="right"/>
<asp:BoundColumn DataField="英文" HeaderText="英語"
ItemStyle-HorizontalAlign="right"/>
<asp:BoundColumn DataField="數學" HeaderText="數學"
ItemStyle-HorizontalAlign="right"/>
</Columns>
</asp:DataGrid>
</Form>
<p>
<HR></Center></Body>
</Html>
Grid07.aspx Part III
<script Language="VB" runat="server">
Sub OpenDataBase_And_BindToDataGrid()
Dim Table As DataTable
Table = OpenMdbTable( "Sample.mdb", "成績單" )
MyGrid.DataSource = Table.DefaultView
MyGrid.DataBind()
End Sub
Grid07.aspx Part IV
Sub Page_Load(sender As Object, e As EventArgs)
If Not IsPostBack Then
OpenDataBase_And_BindToDataGrid()
End If
End Sub
Sub ChangePage(sender As Object, e As DataGridPageChangedEventArgs)
MyGrid.CurrentPageIndex = e.NewPageIndex
OpenDataBase_And_BindToDataGrid()
End Sub
</script>
設定 DataGrid 欄位的連結
Grid07.aspx
Grid08.aspx
此一欄位含有連結之功能
Grid08.aspx Part I
<%@ Import Namespace="System.Data" %>
<!-- #include File="Mdb.vb" -->
<Html>
<Body BgColor="White"><Center>
<H3>Grid08.aspx -- 設定 DataGrid 欄位的連結<HR></H3>
<Form runat="server">
<asp:DataGrid runat="server" id="MyGrid"
AllowPaging="True"
PageSize="10"
OnPageIndexChanged="ChangePage"
PagerStyle-HorizontalAlign="Right"
PagerStyle-NextPageText=“下一頁”
PagerStyle-PrevPageText="上一頁"
HeaderStyle-BackColor="#AAAADD"
AlternatingItemStyle-BackColor="#FFFFC0"
BorderColor="Black"
CellPadding="2"
CellSpacing="0"
AutoGenerateColumns="false" >
Grid08.aspx Part II
<Columns>
<asp:HyperLinkColumn DataTextField="學號"
HeaderText="學號"
DataNavigateUrlField="學號"
DataNavigateUrlFormatString="students.aspx?id={0}"
Target="_blank" />
<asp:BoundColumn DataField="姓名" HeaderText="姓名" />
<asp:BoundColumn DataField="國文" HeaderText="國語"
ItemStyle-HorizontalAlign="right"/>
<asp:BoundColumn DataField="英文" HeaderText="英語"
ItemStyle-HorizontalAlign="right"/>
<asp:BoundColumn DataField="數學" HeaderText="數學"
ItemStyle-HorizontalAlign="right"/>
</Columns>
</asp:DataGrid>
</Form>
<p>
<HR></Center></Body>
</Html>
Grid08.aspx Part III
<script Language="VB" runat="server">
Sub OpenDataBase_And_BindToDataGrid()
Dim Table As DataTable
Table = OpenMdbTable( "Sample.mdb", "成績單" )
MyGrid.DataSource = Table.DefaultView
MyGrid.DataBind()
End Sub
Grid08.aspx Part IV
Sub Page_Load(sender As Object, e As EventArgs)
If Not IsPostBack Then
OpenDataBase_And_BindToDataGrid()
End If
End Sub
Sub ChangePage(sender As Object, e As DataGridPageChangedEventArgs)
MyGrid.CurrentPageIndex = e.NewPageIndex
OpenDataBase_And_BindToDataGrid()
End Sub
</script>
8-5 DataTable 與排序
DataTable 與排序
排序也是顯示表格資料時，經常見到的
功能，例如下圖是根據「國文」欄位來
排序所顯示的表格：
Sort 屬性與資料排序(1)
想要產生排序好的資料，十分簡單，只
要將 DataTable 的 DefaultView. Sort 屬性
設定成欄位名稱即可，例如：
DataTable.DefaultView.Sort = "國文"
' 根據國文欄位排序資料
Sort 屬性與資料排序(2)
新增排序功能
Grid05.aspx
Sort01.aspx
Sort01.aspx Part I
<%@ Import Namespace="System.Data" %>
<!-- #include File="Mdb.vb" -->
<Html>
<Body BgColor="White"><Center>
<H3>Sort01.aspx -- Sort 屬性與資料排序<HR></H3>
<Form runat="server">
選擇排序的欄位:<br>
<asp:ListBox runat="server" id="SortField" Rows=1>
<asp:ListItem Selected>學號</asp:ListItem>
<asp:ListItem>姓名</asp:ListItem>
<asp:ListItem>國文</asp:ListItem>
<asp:ListItem>英文</asp:ListItem>
<asp:ListItem>數學</asp:ListItem>
</asp:ListBox>
<asp:Button runat="server" Text="排序" OnClick="SortPage"/>
<p>
Sort01.aspx Part II
<asp:DataGrid runat="server" id="MyGrid"
AllowPaging="True"
PageSize="10"
OnPageIndexChanged="ChangePage"
PagerStyle-HorizontalAlign="Right"
PagerStyle-NextPageText="下一頁"
PagerStyle-PrevPageText="上一頁"
HeaderStyle-BackColor="#AAAADD"
AlternatingItemStyle-BackColor="#FFFFC0"
BorderColor="Black"
CellPadding="2"
CellSpacing="0" /><p>
</Form>
<HR></Center></Body>
</Html>
Sort01.aspx Part III
<script Language="VB" runat="server">
Sub OpenDataBase_And_BindToDataGrid()
Dim Table As DataTable
Table = OpenMdbTable( "Sample.mdb", "成績單" )
Table.DefaultView.Sort = SortField.SelectedItem.Text
MyGrid.DataSource = Table.DefaultView
MyGrid.DataBind()
End Sub
Sort01.aspx Part IV
Sub Page_Load(sender As Object, e As EventArgs)
If Not IsPostBack Then
OpenDataBase_And_BindToDataGrid()
End If
End Sub
Sub SortPage(sender As Object, e As EventArgs)
OpenDataBase_And_BindToDataGrid()
End Sub
Sub ChangePage(sender As Object, e As DataGridPageChangedEventArgs)
MyGrid.CurrentPageIndex = e.NewPageIndex
OpenDataBase_And_BindToDataGrid()
End Sub
</script>
遞增排序或遞減排序(1)
新增功能
Sort01.aspx
Sort02.aspx
遞增排序或遞減排序 (2)
想要達到遞減排序的目的，只需在設定
Default.Sort 屬性時，在欄位名稱後面加
上 " Desc" 即可，例如：
DataTable.DefaultView.Sort = "國文 Desc"
減排序
' 國文欄位遞
遞增排序或遞減排序 (3)
新增 RadioButtonList 控制元件，用以選
擇「遞增排序」或「遞減排序」：
<asp:RadioButtonList runat="server" id="SortType"
RepeatDirection="Horizontal" RepeatColumns="2">
<asp:ListItem Selected>遞增排序</asp:ListItem>
<asp:ListItem>遞減排序</asp:ListItem>
</asp:RadioButtonList>
遞增排序或遞減排序 (4)
修改 OpenDataBase_And_BindToDataGrid() 副
程式，使成為：
Sub OpenDataBase_And_BindToDataGrid()
Dim Table As DataTable
Table = OpenMdbTable( "Sample.mdb", "成績單" )
If SortType.SelectedItem.Text = "遞減排序" Then
Table.DefaultView.Sort = SortField.SelectedItem.Text & " Desc"
Else
Table.DefaultView.Sort = SortField.SelectedItem.Text
End If
MyGrid.DataSource = Table.DefaultView
MyGrid.DataBind()
End Sub
按下 DataGrid 的抬頭以排序資料
Sort03.aspx
按下此一連結，即根據此一欄位排序資料
第一次按下遞增排序
第二次按下遞減排序
第三次按下遞增排序
…
Sort03.aspx Part I
<%@ Import Namespace="System.Data" %>
<!-- #include File="Mdb.vb" -->
<Html>
<Body BgColor="White"><Center>
<H3>Sort03.aspx -- 按下 DataGrid 的抬頭以排序資料<HR></H3>
<Form runat="server">
<asp:DataGrid runat="server" id="MyGrid"
AllowPaging="True"
PageSize="10"
OnPageIndexChanged="ChangePage"
PagerStyle-HorizontalAlign="Right"
PagerStyle-NextPageText="下一頁"
PagerStyle-PrevPageText="上一頁"
Sort03.aspx Part II
AllowSorting="true"
OnSortCommand="DgSortPage"
HeaderStyle-BackColor="#AAAADD"
AlternatingItemStyle-BackColor="#FFFFC0"
BorderColor="Black"
CellPadding="2"
CellSpacing="0" /><p>
<asp:Label runat="server" id="SortField" Text="學號" Visible="False" />
<asp:Label runat="server" id="SortType" Text="" Visible="False" />
</Form>
<HR></Center></Body>
</Html>
Sort03.aspx Part III
<script Language="VB" runat="server">
Sub OpenDataBase_And_BindToDataGrid()
Dim Table As DataTable
Table = OpenMdbTable( "Sample.mdb", "成績單" )
Table.DefaultView.Sort = SortField.Text & SortType.Text
MyGrid.DataSource = Table.DefaultView
MyGrid.DataBind()
End Sub
Sub Page_Load(sender As Object, e As EventArgs)
If Not IsPostBack Then
OpenDataBase_And_BindToDataGrid()
End If
End Sub
Sort03.aspx Part IV
Sub DgSortPage(sender As Object, e As DataGridSortCommandEventArgs)
If SortField.Text = e.SortExpression Then
If SortType.Text = "" Then
SortType.Text = " Desc"
Else
SortType.Text = ""
End If
Else
SortField.Text = e.SortExpression
SortType.Text = ""
End If
OpenDataBase_And_BindToDataGrid()
End Sub
Sub ChangePage(sender As Object, e As DataGridPageChangedEventArgs)
MyGrid.CurrentPageIndex = e.NewPageIndex
OpenDataBase_And_BindToDataGrid()
End Sub
</script>