2020 AIoT 100强
全世界各行各业联合起来,internet一定要实现!
老文章正文

在DATAGRID中使用分类标题

2004-02-11 eNet&Ciweek

  在asp.net中,DATAGRID是使用频率比较高的控件,而在日常应用中,如何在DATAGRID中使用分类标题呢?

  什么是分类标题呢?举个例子,我们在使用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事件,所以继续编辑代码如下:

  

   ForeColor="Black" BackColor="White" CellPadding="3"

   GridLines="None" CellSpacing="1"

   OnItemDataBound="DataGrid1_ItemDataBound">

  之后我们再看下如何写逻辑部分的代码。其实做分类标题的过程很简单,过程为:   

  用SQL语句从数据库读取product表的数据,之后放到dataset的默认datatable中去,  

  然后检查每一个产品所属的类别,如果发现某一个产品的类别和前一条记录中产品所属的类别不一样的话,那么就可以肯定当前产品是属于一个新的分类了,就可以插入新的行,并且加以修饰,成为分类标题。   

  下面先看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

   ‘如果发现前后两记录的所属类别不一样

   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表中每个类别的所有产品,之后对结果集进行遍历,然后检查每一个产品所属的类别,如果发现某一个产品的类别和前一条记录中产品所属的类别不一样的话,那么就可以肯定当前产品是属于一个新的分类了,就可以插入新的行做为分类标题行,而在新插入的行中,我们写了一句 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

  ’如果发现是分类标题行的话,则对其进行格式化

  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下运行。

相关频道: eNews 老文章

您对本文或本站有任何意见,请在下方提交,谢谢!

投稿信箱:tougao@enet16.com
广告