什么是分類標(biāo)題呢?舉個(gè)例子,我們在使用DATAGRID時(shí),都以一定的順序來顯示有關(guān)的數(shù)據(jù),比如在使用ms sql server的Northwind數(shù)據(jù)庫時(shí),在product產(chǎn)品表中,每一個(gè)產(chǎn)品都是屬于一個(gè)類別,這些類別在category表中定義。那么我們可以按照category表中類別的順序,在DATAGRID中顯示每個(gè)類別有哪些產(chǎn)品。
從上面的圖中,可以看出,在這個(gè)DATAGRID中,藍(lán)色的行標(biāo)題是一個(gè)分類標(biāo)題,很明顯地指出商品所屬的類別,分類標(biāo)題以下的就是該分類下的所有商品了。
好吧,講了這么多,讓我們一步步來開始設(shè)計(jì)咯。(下面的內(nèi)容假定各位都初步掌握了VS.NET的基本操作,有asp.net和VB.NET的初步知識)。
首先,我們建立一個(gè)名為subheading的工程,選用VB.NET。之后添加一個(gè)datagrid,并修改其html代碼如下:
目的是在datagrid中設(shè)置綁定的幾列,注意,要把datagrid中AutoGenerateColumns 屬性設(shè)置為 False.之后,我們因?yàn)橐魂囈獙慖temDataBound事件,所以繼續(xù)編輯代碼如下:
ForeColor="Black" BackColor="White" CellPadding="3"
GridLines="None" CellSpacing="1"
OnItemDataBound="DataGrid1_ItemDataBound">
之后我們再看下如何寫邏輯部分的代碼。其實(shí)做分類標(biāo)題的過程很簡單,過程為:
用SQL語句從數(shù)據(jù)庫讀取product表的數(shù)據(jù),之后放到dataset的默認(rèn)datatable中去,
然后檢查每一個(gè)產(chǎn)品所屬的類別,如果發(fā)現(xiàn)某一個(gè)產(chǎn)品的類別和前一條記錄中產(chǎn)品所屬的類別不一樣的話,那么就可以肯定當(dāng)前產(chǎn)品是屬于一個(gè)新的分類了,就可以插入新的行,并且加以修飾,成為分類標(biāo)題。
下面先看page_load()的代碼:
Private Sub Page_Load(ByVal sender As System.Object, ByVale As System.EventArgs)
Handles MyBase.Load
Dim ConnectionString As String
ConnectionString = "server=localhost;database=northwind;UID=sa"
Dim CommandText As String = "Select CategoryName, ProductName, " & _
"Cast(UnitPrice as varchar(50)) as UnitPrice, UnitsInStock " & _
"from Products " & _
" INNER JOIN Categories On " & _
" Products.categoryID = Categories.CategoryID " & _
"order by Products.categoryID"
Dim myConnection As New SqlConnection(ConnectionString)
Dim myCommand As New SqlDataAdapter(CommandText, myConnection)
Dim ds As New DataSet()
myCommand.Fill(ds)
Dim curCat As String ‘指示當(dāng)前記錄中產(chǎn)品所屬的類別
Dim prevCat As String ‘指示上一條記錄中產(chǎn)品所屬的類別
Dim row As TableRow ‘要插入分類標(biāo)題的行
Dim i As Integer = 0 ‘要插入分類標(biāo)題行的位置,用I表示
'遍歷結(jié)果集,找出要插入分類標(biāo)題的行
Do While i <= ds.Tables(0).Rows.Count - 1
curCat = ds.Tables(0).Rows(i).Item("CategoryName")
If curCat <> prevCat Then
‘如果發(fā)現(xiàn)前后兩記錄的所屬類別不一樣
prevCat = curCat
Dim shRow As DataRow = ds.Tables(0).NewRow
shRow("ProductName") = ds.Tables(0).Rows(i).Item(0)
‘修改行的標(biāo)題為分類標(biāo)題名
shRow("UnitPrice") = "SubHead" ‘設(shè)置一個(gè)臨時(shí)的標(biāo)記
ds.Tables(0).Rows.InsertAt(shRow, i) ‘插入新的分類標(biāo)題行
i += 1
End If
i += 1
Loop
DataGrid1.DataSource = ds
DataGrid1.DataBind()
End Sub
在上面的page_load事件中,首先是用SQL語句,對product表和Category表進(jìn)行連接,得出的結(jié)果集是在Category表中每個(gè)類別的所有產(chǎn)品,之后對結(jié)果集進(jìn)行遍歷,然后檢查每一個(gè)產(chǎn)品所屬的類別,如果發(fā)現(xiàn)某一個(gè)產(chǎn)品的類別和前一條記錄中產(chǎn)品所屬的類別不一樣的話,那么就可以肯定當(dāng)前產(chǎn)品是屬于一個(gè)新的分類了,就可以插入新的行做為分類標(biāo)題行,而在新插入的行中,我們寫了一句 shRow("UnitPrice") = "SubHead",這是為什么呢?
這其實(shí)只是一個(gè)臨時(shí)的標(biāo)記而已,因?yàn)樾虏迦氲姆诸悩?biāo)題行是和普通的行不同的,我們要設(shè)置其樣式,于是在其item_bound事件中,代碼如下:
Private Sub DataGrid1_ItemDataBound(sender As Object, e As DataGridItemEventArgs)
Select Case e.Item.ItemType
Case ListItemType.AlternatingItem, ListItemType.Item
’如果發(fā)現(xiàn)是分類標(biāo)題行的話,則對其進(jìn)行格式化
If e.Item.Cells(1).Text.Equals("SubHead") Then
’設(shè)置列寬
'Set the cell to a ColSpan of 3
e.Item.Cells(0).ColumnSpan = 3
‘合拼為一個(gè)新的分類標(biāo)題行,移除其中的單元格
e.Item.Cells.RemoveAt(2)
e.Item.Cells.RemoveAt(1)
e.Item.Cells(0).Attributes.Add("align", "Left")
e.Item.Cells(0).Font.Bold = True
e.Item.BackColor = Color.FromArgb(204,204,255)
End If
End Select
End Sub
最后,別忘記了Imports System.Data.SqlClient。
本程序在win2000 server+vs.net 2002下通過,也可以在vs.net 2003下運(yùn)行。