設計思路: 為了方便起見,我們連接SQL Server 2000的NorthW " /> 欧美成人在线视频,色草视频,在线视频你懂得

一区二区久久-一区二区三区www-一区二区三区久久-一区二区三区久久精品-麻豆国产一区二区在线观看-麻豆国产视频

讓Asp.NET的DataGrid可排序、可選擇、可分頁

DataGrid是ASP.NET中的一個重要的控件,經常我們都將DataGrid做成可分頁的和可排序的,有時還需要加上選擇功能。這些都是經常需要用到的方法,其實是比較簡單的。

設計思路:
為了方便起見,我們連接SQL Server 2000的NorthWind數據庫的Orders表,從數據庫里得到此表的數據視圖。利用DataGrid的SortCommand事件實現排序。用一個模板列加上CheckBox控件實現選擇。可用DataGrid的屬性生成器的“分頁”選項或者自己修改HTML實現分頁。

HTML:

添加一個DataGrid,命名為dgOrder。
添加了一個模板列,模板列里放一個名為Cb的CheckBox控件。此列用來實現選擇
為要排序的每個列加上排序表達式SortExpression。
利用列的DataFormatString來格式化列,象DataFormatString="{0:d}"顯示日期格式。
設置PageSize="15"每頁顯示15行數據,AllowPaging="True" 為允許分頁 。

整個HTML頁代碼:

<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

 

'得到數據視圖,參數為要排序的列

Private Function GetDv(ByVal strSort As String) As DataView

'定義數據庫連接

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表的數據

Dim adp As SqlDataAdapter = New SqlDataAdapter("select * from orders", CN)

Dim ds As New DataSet()

adp.Fill(ds)

'得到數據視圖

dv = ds.Tables(0).DefaultView

Catch ex As Exception

#If DEBUG Then

Session("Error") = ex.ToString()

Response.Redirect("../error.ASPx") '跳轉程序的公共錯誤處理頁面

#End If

Finally

'關閉連接

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 

運行結果如下圖所示:(點擊列標頭可以排序)

 

為了知道用戶選擇的是哪些記錄,我們可以利用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('"

'循環表格的項,FindControl

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("系統消息", StrScript)

End Sub 

上面的代碼RegisterClientScriptBlock添加Java Script腳本彈出對話框。(其實Vb Script的對話框比Java Script的對話框多更多的顯示和控制方式,但NETscape的瀏覽器不支持,大家可根據相應的項目在程序里選擇用哪種腳本)。

總結:

DataGrid是我們常用的Web 控件,有時我們還可以和DataList混合使用,通過修改HTML頁,可以達到好的頁面效果。上面只是一個例子,為了便于清楚整個過程,我把數據訪問部分(SQL)寫到了頁面中。在軟件開發中,我們一般把訪問數據的部分寫成數據層,頁面調用數據層得到數據,這樣邏輯清晰,修改和維護都很方便。

AspNet技術讓Asp.NET的DataGrid可排序、可選擇、可分頁,轉載需保留來源!

鄭重聲明:本文版權歸原作者所有,轉載文章僅為傳播更多信息之目的,如作者信息標記有誤,請第一時間聯系我們修改或刪除,多謝。

主站蜘蛛池模板: 九九久久久久午夜精选 | 国产级a爱做片免费观看 | 日本色小说 | 亚洲天堂色网站 | 日韩色区| 极品美女国产精品免费一区 | 91麻豆精品国产 | 999热成人精品国产免 | 亚洲激情综合网 | 黄色小视频在线观看免费 | 亚洲专区一区 | 午夜黄色福利视频 | 自偷自偷自亚洲首页精品 | 91精品免费久久久久久久久 | 色天天干| 黄色网址在线播放 | 欧美日韩色视频在线观看 | 亚洲图片激情小说 | 精品视频自拍 | 337p人体大胆扒开下部 | 亚洲美女福利视频 | 国产精品第页 | 久久福利青草精品免费 | 久久国产一级毛片一区二区 | 日韩久久久精品中文字幕 | 91中文在线 | 91九色在线观看 | 天天天天干 | 日本成人免费网站 | 国产精品自拍第一页 | 五月婷在线观看 | 精品久久久噜噜噜久久7 | 国内不卡一二三四区 | 欧美精品午夜 | 日韩中文字幕在线有码视频网 | 日日夜夜2017 | 国产精品视频在 | 国产高清免费的视频 | 黄色小视频在线播放 | 黄色网址在线视频 | 真实子伦视频不卡 |