什么是分類標題呢？舉個例子，我們在使用DATAGRID時，都以一定的順序來顯示有關的數據，比如在使用ms sql server的Northwind數據庫時，在product產品表中，每一個產品都是屬于一個類別，這些類別在category表中定義。那么我們可以按照category表中類別的順序，在DATAGRID中顯示每個類別有哪些產品。
從上面的圖中，可以看出，在這個DATAGRID中，藍色的行標題是一個分類標題，很明顯地指出商品所屬的類別，分類標題以下的就是該分類下的所有商品了。
好吧，講了這么多，讓我們一步步來開始設計咯。（下面的內容假定各位都初步掌握了VS.NET的基本操作，有asp.net和VB.NET的初步知識）。
首先，我們建立一個名為subheading的工程，選用VB.NET。之后添加一個datagrid,并修改其html代碼如下：
目的是在datagrid中設置綁定的幾列，注意，要把datagrid中AutoGenerateColumns 屬性設置為 False.之后，我們因為一陣要寫ItemDataBound事件，所以繼續(xù)編輯代碼如下：
ForeColor="Black" BackColor="White" CellPadding="3"
GridLines="None" CellSpacing="1"
OnItemDataBound="DataGrid1_ItemDataBound">
之后我們再看下如何寫邏輯部分的代碼。其實做分類標題的過程很簡單，過程為：
用SQL語句從數據庫讀取product表的數據，之后放到dataset的默認datatable中去，
然后檢查每一個產品所屬的類別，如果發(fā)現某一個產品的類別和前一條記錄中產品所屬的類別不一樣的話，那么就可以肯定當前產品是屬于一個新的分類了，就可以插入新的行，并且加以修飾，成為分類標題。
下面先看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 ‘指示當前記錄中產品所屬的類別
Dim prevCat As String ‘指示上一條記錄中產品所屬的類別
Dim row As TableRow ‘要插入分類標題的行
Dim i As Integer = 0 ‘要插入分類標題行的位置，用I表示
'遍歷結果集，找出要插入分類標題的行
Do While i <= ds.Tables(0).Rows.Count - 1
curCat = ds.Tables(0).Rows(i).Item("CategoryName")
If curCat <> prevCat Then
‘如果發(fā)現前后兩記錄的所屬類別不一樣
prevCat = curCat
Dim shRow As DataRow = ds.Tables(0).NewRow
shRow("ProductName") = ds.Tables(0).Rows(i).Item(0)
‘修改行的標題為分類標題名
shRow("UnitPrice") = "SubHead" ‘設置一個臨時的標記
ds.Tables(0).Rows.InsertAt(shRow, i) ‘插入新的分類標題行
i += 1
End If
i += 1
Loop
DataGrid1.DataSource = ds
DataGrid1.DataBind()
End Sub
在上面的page_load事件中，首先是用SQL語句，對product表和Category表進行連接，得出的結果集是在Category表中每個類別的所有產品，之后對結果集進行遍歷，然后檢查每一個產品所屬的類別，如果發(fā)現某一個產品的類別和前一條記錄中產品所屬的類別不一樣的話，那么就可以肯定當前產品是屬于一個新的分類了，就可以插入新的行做為分類標題行，而在新插入的行中，我們寫了一句 shRow("UnitPrice") = "SubHead"，這是為什么呢？
這其實只是一個臨時的標記而已，因為新插入的分類標題行是和普通的行不同的，我們要設置其樣式，于是在其item_bound事件中，代碼如下：
Private Sub DataGrid1_ItemDataBound(sender As Object, e As DataGridItemEventArgs)
Select Case e.Item.ItemType
Case ListItemType.AlternatingItem, ListItemType.Item
’如果發(fā)現是分類標題行的話，則對其進行格式化
If e.Item.Cells(1).Text.Equals("SubHead") Then
’設置列寬
'Set the cell to a ColSpan of 3
e.Item.Cells(0).ColumnSpan = 3
‘合拼為一個新的分類標題行，移除其中的單元格
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下運行。
