用rollup进行分类数据统计(二)

《用rollup进行分类数据统计(二)》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、用ROLLUP进行分类数据统计(二)>>教育资源库　　我们介绍了mssqlserver中的rollup语句。下面开始介绍如何用datagrid结合rollup语句来进行分类统计。　　我们要达到的效果是这样的：　　　　　　首先，应先将数据库中的产品数据按照所属的不同的目录列举出来，这其中要用到一些技巧.这里先用SQL语句，从数据库读取product表的数据，之后放到dataset的默认datatable中去，然后检查每一个产品所属的类别，如果发现某一个产品的类别和前一条记录中产品所属的类别不一样的话，那么就可以肯定当前产品是属于一个新的分类了，就可以插入新的

2、行，并且加以修饰，成为分类标题，同时将rollup的统计结果显示在相应的位置就可以了。我们先来看page_load部分的代码SubPage_Load(SenderAsObject,EAsEventArgs)HandlesMyBase.Load　　'TODO:UpdatetheConnectionStringandmandTextvaluesforyourapplicationdim　ConnectionStringasstring=server=localhost;database=northmandTextAsString=SelectCASEa

3、inTotal'ELSEcategorynameENDASCategoryName,　　mandText=CASEe)=1)THEN'SubTotal'ELSE_　　　　　　　ProductnameENDASProductName,　　mandText=Sum(UnitPrice)asunitprice,　　mandText=Sum(UnitsinStock)asUnitsinStock　　mandText=fromProductsINNERJOINCategoriesOnProducts.categoryID=_　　　　　　　　　

4、　Categories.CategoryID　　mandText=GroupByCategoryname,ProductNamemyConnectionAsNemymandAsNeandText,myConnection)　　DimdsAsNeymand.Fill(ds)　　DimcurCatAsString　指示当前记录中产品所属的类别　　DimprevCatAsString　指示上一条记录中产品所属的类别　　DimiAsInteger=0　要插入分类标题行的位置，用I表示'遍历结果集，找出要插入分类标题的行　　DoshRo(0)　　　　　　　　

5、　　　　'ChangeItemDataBoundmarkertoNegativeNumber　　　　　　shRo(1)=Total　　DataGrid1.DataSource=ds　　DataGrid1.DataBind()EndSub　　可以看到，上面用到的技巧基本和《在DATAGRID中使用分类标题》的是差不多的,只不过为了在最后统计所有的分类结果，将最后一行的标题改为total。之后，我们要对datagrid中的数据进12下一页>>>>这篇文章来自..，。行格式化，将临时标记取消，换为我们要显示的格式，因为新插入的分类标题行是和普通的行不同的

6、，我们要设置其样式，于是在其item_bound事件中，代码如下：　PrivateSubDataGrid1_ItemDataBound(senderAsObject,　eAsDataGridItemEventArgs)SelectCasee.Item.ItemType　　　　CaseListItemType.AlternatingItem,ListItemType.Item　如果发现是分类标题行的话，则对其进行格式化　　　　　　Ife.Item.Cells(1).Text.Equals(-1)Then　　　　　　　　'FormattheSubHea

7、dingColumns　　　　　　　　e.Item.Cells(0).Attributes.Add(align,Left)　　　　　　　　e.Item.Cells(0).ColumnSpan=3　　　　　　　　e.Item.Cells(0).Font.Bold=True　　合拼为一个新的分类标题行，移除其中的单元格　　　　　　　　e.Item.Cells.RemoveAt(2)　　　　　　　　e.Item.Cells.RemoveAt(1)　　　　　　　　e.Item.BackColor=Color.FromArgb(204,204,255)EndIf最后

8、的所有分类的总计　　　　　　Ife.Item.Cells(0).T