Dim d As Date = e.Form.Controls("DateTimePicker1").value
Dim b As New CrossTableBuilder("统计表1",DataTables("录入保险明细"))
b.Filter ="[签单日期] = #" & d & "#"
b.HGroups.AddDef("承保公司") '添加客户列用于水平分组
b.HGroups.AddDef("投保性质") '添加客户列用于水平分组
b.VGroups.AddDef("险种名称") '添加产品列用于垂直分组
b.Totals.AddDef("数量") '添加数量列用于统计
b.Totals.AddDef("保费金额") '添加数量列用于统计
b.Totals.AddDef("保险利润") '添加数量列用于统计
b.VerticalTotal= True '垂直汇总
b.HorizontalTotal = True '水平汇总
b.Decimals = 2
Tables("查询预览窗口_Table1").DataSource = b.builddatasource
For Each dc As DataCol In DataTables("查询预览窗口_Table1").datacols
If dc.caption Like "*保*" Then
dc.SetFormat("#,###.00")
End If
Next
Tables("查询预览窗口_Table1").AutoSizeCols() '自动设置所有列的宽度
请问老师：以上代码的列为“险种名称”，例如：列名称分别为“交强险，商业险，驾意险，人员险”，但是由于每次查询的时间周期不同，因此，险种也不同，例如查询1月份数据，险种只有“交强险，商业险”，查询2月份数据，险种只有“交强险，驾意险”，如此，我想对列次序进行统一，按照1-交强险，2-商业险，3-驾意险，4-人员险的次序，进行陈列，代码该如何写，您受累给指导下
加好友 
发短信
Post By：2022/6/18 11:15:00 [只看该作者]
