主题：[求助]关于交叉表增加小计列（已解决）

一段按钮代码，进行当月汇总，想每天增加一个小计列，对“类别”分组进行统计，代码应该如何修改，请各位老师指教，谢谢！！

Dim dw As String

Dim rq As Date

With RibbonTabs("设备管理").Groups("日期单位")

    dw = .Items("单位").Text

    rq = .Items("日期").Value

End With

Dim y As Integer = rq.Year '当年

Dim m As Integer = rq.Month '当月

Dim Days As Integer = Date.DaysInMonth(y,m)

Dim yc As Date = New Date(y,m,1)  '月初日期

Dim yd As Date = New Date(y,m,Days) '月底日期

With RibbonTabs("设备管理").Groups("日期单位")

    dw = .Items("单位").Text

    rq = .Items("日期").Value

End With

If dw = "" Then

    MessageBox.Show("请选择单位","提示")

    Return Nothing

End If

Dim sql As String

sql = "Select *,1 As 计数,1 As 小计 FROM {设备盘点明细} WHERE 盘点单位 = '" & dw & "' And 盘点日期 >= '"& yc &"' And 盘点日期 <= '"& yd &"'"

Dim b As New CrossTableBuilder("设备盘点汇总",sql,"MES")

b.HGroups.AddDef("盘点单位")

b.HGroups.AddDef("设备名称")

b.HGroups.AddDef("使用单位")

b.VGroups.AddDef("盘点日期",DateGroupEnum.None)

b.VGroups.AddDef("类别")

b.Totals.AddDef("计数")

b.VerticalTotal = True

b.Build()

MainTable = Tables("设备盘点汇总")

明细表截图

此主题相关图片如下：明细表截图.jpg

汇总表截图

此主题相关图片如下：汇总截图.jpg

谢谢甜老师的指教，按老师的方法，可以生成带小计的交叉表，但是能否将小计列向后移一列，请指教，谢谢！！

Dim sql As String

sql = "Select 盘点单位,设备名称,使用单位,盘点日期,类别,1 As 计数 FROM {设备盘点明细} WHERE 盘点单位 = '"& dw &"' And 盘点日期 >= '"& yc &"' And 盘点日期 <= '"& yd &"'union all Select 盘点单位,设备名称,使用单位,盘点日期,'小计',1 As 计数 FROM {设备盘点明细} WHERE 盘点单位 = '"& dw &"' And 盘点日期 >= '"& yc &"' And 盘点日期 <= '"& yd &"' group by 盘点单位,设备名称,使用单位,盘点日期"

Dim b As New CrossTableBuilder("设备盘点汇总",sql,"MES")

b.HGroups.AddDef("盘点单位")

b.HGroups.AddDef("设备名称")

b.HGroups.AddDef("使用单位")

b.VGroups.AddDef("盘点日期",DateGroupEnum.None)

b.VGroups.AddDef("类别")

b.Totals.AddDef("计数")

b.VerticalTotal = True

b.Build()

此主题相关图片如下：汇总截图2.jpg

此主题相关图片如下：汇总截图3.jpg