Dim g As New CrossTableBuilder("统计表21", DataTables("十监区管理"))
g.HGroups.AddDef("日期", DateGroupEnum.None)
g.HGroups.AddDef("部门")
g.HGroups.AddDef("报表名称")
g.HGroups.AddDef("组别")
g.HGroups.AddDef("管组民警")
g.HGroups.AddDef("统计类型")
g.HGroups.AddDef("款号")
g.HGroups.AddDef("品名")
'g.VGroups.AddDef("项目")
g.VGroups.AddDef("数据统计项目")
g.Totals.AddDef("数值", "数值")
g.Filter = "部门 ='十二监区' And 组别='制衣二组'"
g.FromServer = True
g.Build()
MainTable = Tables("统计表21")
Dim 当日产量 As String
Dim 单价 As String
Dim 当日人数 As String
Dim 每人每日定额 As String
Dim 当日完成任务人数 As String
Dim 送检数量 As String
Dim 合格数量 As String
Dim 不合格数量 As String
For Each cl As Col In Tables("统计表21").cols
Select Case cl.Caption
Case "当日产量(件)"
当日产量=cl.Name
Case "单价(元)"
单价=cl.Name
Case "当日人数"
当日人数=cl.Name
Case "每人每日定额(元)"
每人每日定额=cl.Name
Case "当日完成任务的人数"
当日完成任务人数=cl.Name
Case "当日送检数量(件)"
送检数量 = cl.Name
Case "合格数量(件)"
合格数量 = cl.Name
End Select
Next
DataTables("统计表21").DataCols.Add("产值",Gettype(Double),当日产量 & "*" & 单价,"产值(元)")
DataTables("统计表21").DataCols.Add("人均产值",Gettype(Double),"产值" & "/" & 当日人数,"人均产值(元)")
DataTables("统计表21").DataCols.Add("超欠",Gettype(Double),"人均产值" & "/" & 每人每日定额 & "* 100","超欠%")
DataTables("统计表21").DataCols.Add("当日完成人数百分比",Gettype(Double), 当日完成任务人数 & "/" & 当日人数 ,"当日完成任务的人数百分比%")
DataTables("统计表21").DataCols.Add("不合格数量",Gettype(Double),送检数量 & "-" & 合格数量,"不合格数量(件)")
DataTables("统计表21").DataCols.Add("合格率",Gettype(Double),合格数量 & "/" & 送检数量 & "*100" ,"合格率")
Dim g1 As New GroupTableBuilder("统计表1", DataTables("统计表21"))
g1.Groups.AddDef("日期", DateGroupEnum.None)
g1.Groups.AddDef("部门")
g1.Groups.AddDef("报表名称")
g1.Groups.AddDef("组别")
g1.Groups.AddDef("管组民警")
g1.Groups.AddDef("统计类型")
g1.Groups.AddDef("款号")
g1.Groups.AddDef("品名")
g1.Totals.AddDef("数值_6")
g1.Totals.AddDef("数值_3")
g1.Totals.AddDef("数值_9")
g1.Totals.AddDef("数值_2")
g1.Totals.AddDef("数值_1")
g1.Totals.AddDef("产值")
g1.Totals.AddDef("人均产值")
g1.Totals.AddDef("超欠")
g1.Totals.AddDef("产值", "本月累计完成产值", "本月累计完成产值(元)",True)
g1.Totals.AddDef("数值_2", "本月完成数量", "本月完成数量(件)",True)
g1.Totals.AddDef("数值_6")
g1.Totals.AddDef("当日完成人数百分比")
g1.Totals.AddDef("数值_4")
g1.Totals.AddDef("数值_5")
g1.Totals.AddDef("数值_8")
g1.Totals.AddDef("不合格数量")
g1.Totals.AddDef("合格率")
g1.Totals.AddDef("数值_10")
g1.Build()
MainTable = Tables("统计表1")
我先生成交叉统计表 再利用交叉统计表做分组统计表,但是出现一个错误提示 不知道怎么解决?
如图的错误: 而且没有写任何变量
此主题相关图片如下：tt截图未命名.bmp
加好友 
发短信
Post By：2013/11/5 9:45:00 [只看该作者]
