两次统计出现的错误提示! - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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

主题：两次统计出现的错误提示!