一段按钮代码，进行当月汇总，想每天增加一个小计列，对“类别”分组进行统计，代码应该如何修改，请各位老师指教，谢谢！！
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
[此贴子已经被作者于2014-12-15 18:22:41编辑过]
加好友 
发短信
Post By：2014/12/15 11:16:00 [只看该作者]
