Dim sql As String
sql = "Select 盘点单位,设备名称,使用单位,盘点日期,' ' + 类别 + ' ' As 类别,1 As 计数 FROM {设备盘点明细} WHERE 盘点单位 = '"& dw &"' And 盘点日期 >= '"& yc &"' And 盘点日期 <= '"& yd &"'union all Select 盘点单位,设备名称,使用单位,盘点日期,'小计', count(*) 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()
[此贴子已经被作者于2014-12-15 16:58:41编辑过]
加好友 
发短信
Post By：2014/12/15 11:20:00 [显示全部帖子]
