<form id="Form1" method="post" runat="server">  
<asp:datagrid id="dgOrder" runat="server" Height="515px" Width="718px" AutoGenerateColumns="False" AllowSorting="True" CellPadding="4" BorderWidth="1px" BorderColor="#A0ABEB" PageSize="15" BorderStyle="Solid" BackColor="White" GridLines="Vertical" ForeColor="Black" AllowPaging="True" ShowFooter="True">  
<SelectedItemStyle ForeColor="White" BackColor="Black"></SelectedItemStyle>  
<AlternatingItemStyle BackColor="#EEEEEE"></AlternatingItemStyle>  
<HeaderStyle HorizontalAlign="Center" ForeColor="White" BorderColor="#6876C5" BackColor="#6876C5"></HeaderStyle>  
<FooterStyle ForeColor="White" BackColor="#6876C5"></FooterStyle>  
<Columns>  
<asp:TemplateColumn>  
<ItemTemplate>  
<FONT face="宋體">  
<asp:CheckBox id="Cb" runat="server"></asp:CheckBox></FONT>  
</ItemTemplate>  
</asp:TemplateColumn>  
<asp:BoundColumn DataField="orderid" SortExpression="orderid" HeaderText="ID">  
<HeaderStyle Width="180px"></HeaderStyle>  
</asp:BoundColumn>  
<asp:BoundColumn DataField="ShipCountry" SortExpression="ShipCountry" HeaderText="ShipCountry">  
<HeaderStyle Width="180px"></HeaderStyle>  
</asp:BoundColumn>  
<asp:BoundColumn DataField="ShippedDate" SortExpression="ShippedDate" HeaderText="ShippedDate" DataFormatString="{0:d}">  
<HeaderStyle Width="180px"></HeaderStyle>  
</asp:BoundColumn>  
<asp:BoundColumn DataField="Freight" SortExpression="Freight" HeaderText="Freight">  
<HeaderStyle Width="180px"></HeaderStyle>  
</asp:BoundColumn>  
<asp:BoundColumn DataField="ShipAddress" SortExpression="ShipAddress" HeaderText="ShipAddress">  
<HeaderStyle Width="480px"></HeaderStyle>  
</asp:BoundColumn>  
</Columns>  
<PagerStyle HorizontalAlign="Center" ForeColor="Black" Position="TopAndBottom" BackColor="White" Mode="NumericPages"></PagerStyle>  
</asp:datagrid>  
</form>  

   

后臺類添加以下代碼：  

Imports System.Data.SqlClient  

'得到數(shù)據(jù)視圖，參數(shù)為要排序的列  
Private Function GetDv(ByVal strSort As String) As DataView  
'定義數(shù)據(jù)庫連接  
Dim dv As DataView  
Dim CN As New SqlConnection()  
Try  
'初始化連接字符串  
CN.ConnectionString = "data source=pmserver;initial catalog=Northwind;persist security info=False;user id=sa;Password=sa;"  
CN.Open()  
'從NorthWind得到orders表的數(shù)據(jù)  
Dim adp As SqlDataAdapter = New SqlDataAdapter("select * from orders", CN)  
Dim ds As New DataSet()  
adp.Fill(ds)  
'得到數(shù)據(jù)視圖  
dv = ds.Tables(0).DefaultView  
Catch ex As Exception  
#If DEBUG Then  
Session("Error") = ex.ToString()  
Response.Redirect("../error.aspx") '跳轉(zhuǎn)程序的公共錯誤處理頁面  
#End If  
Finally  
'關(guān)閉連接  
CN.Close()  
End Try  
'排序  
dv.Sort = strSort  
Return dv  
End Function  

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
If Not IsPostBack Then  
ViewState("strSort") = "orderid"  
dgOrder.DataSource = GetDv(ViewState("strSort").ToString())  
dgOrder.DataBind()  
End If  
End Sub  
'排序  
Private Sub dgOrder_SortCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles dgOrder.SortCommand  
dgOrder.CurrentPageIndex = 0  
'得到排序的列  
ViewState("strSort") = e.SortExpression.ToString()  
dgOrder.DataSource = GetDv(ViewState("strSort").ToString())  
dgOrder.DataBind()  
End Sub  

'分頁  
Private Sub dgOrder_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles dgOrder.PageIndexChanged  
'得到分頁的頁號  
dgOrder.CurrentPageIndex = e.NewPageIndex  
dgOrder.DataSource = GetDv(ViewState("strSort").ToString())  
dgOrder.DataBind()  
End Sub   
運行結(jié)果如下圖所示：(點擊列標頭可以排序)  

為了知道用戶選擇的是哪些記錄，我們可以利用DataGridItem的FindControl得到CheckBox的值，我們來添加一個按鈕，再寫如下代碼：  
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
Dim item As DataGridItem  
Dim StrScript As String  
StrScript = "<script language=javascript>alert('"  
'循環(huán)表格的項，F(xiàn)indControl  
For Each item In Me.dgOrder.Items  
If CType(item.FindControl("cb"), System.Web.UI.WebControls.CheckBox).Checked Then  
Try  
StrScript += item.Cells(1).Text & Space(2)  
Catch ex As Exception  
End Try  
End If  
Next  
StrScript += "被選擇！')</script>"  
RegisterClientScriptBlock("系統(tǒng)消息", StrScript)  
End Sub