- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]统计数据错误原因 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=148990)
-- 发布时间：2020/4/20 21:56:00
-- [求助]统计数据错误原因
此主题相关图片如下：错误原因.jpg
项目中增加数据统计功能，如下：
Case "班组结算"
Dim g As New CrossTableBuilder("出库统计", DataTables("出库"))
g.HGroups.AddDef("统计班组","班组")
g.VGroups.AddDef("统计日期", DateGroupEnum.Year, "{0}年")
g.VGroups.AddDef("统计日期", "{0}月")
g.Totals.AddDef("备件_属性", "备件属性")
g.Totals.AddDef("备件_总价", "总金额")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Decimals = 2
g.Subtotal = True
g.Build()
MainTable = Tables("出库统计")
Tables("出库结算汇总_Table1").DataSource = g.BuildDataSource()
-- 发布时间：2020/4/20 21:59:00
--
请教老师，错误原因？
-- 发布时间：2020/4/20 22:01:00
--
勾选“显示详细信息”看是哪个事件出错，然后贴出完整代码
Case "班组结算"
Dim g As New CrossTableBuilder("出库统计", DataTables("出库"))
g.HGroups.AddDef("统计班组","班组")
g.VGroups.AddDef("统计日期", DateGroupEnum.Year, "{0}年")
g.VGroups.AddDef("统计日期", "{0}月")
g.Totals.AddDef("备件_属性", "备件属性")
g.Totals.AddDef("备件_总价", "总金额")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Decimals = 2
g.Subtotal = True
‘’g.Build()这句去掉
‘’MainTable = Tables("出库统计")这句去掉
Tables("出库结算汇总_Table1").DataSource = g.BuildDataSource()
-- 发布时间：2020/4/20 23:05:00
--
不行
[此贴子已经被作者于2020/4/22 13:26:44编辑过]
-- 发布时间：2020/4/21 8:31:00
--
应该不是这里的问题？做什么操作出现的错误？请贴出完整代码！
-- 发布时间：2020/4/21 22:15:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:bin.rar |
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:出库结算.foxdb |
-- 发布时间：2020/4/21 22:34:00
--
备件_属性是字符列，字符列只能计数，无法求和。
另外使用了g.BuildDataSource()，就没有必要使用g.Build()了。
Case "单车汇总"
Dim g As New CrossTableBuilder("出库统计", DataTables("出库"))
g.HGroups.AddDef("统计班组","班组")
g.HGroups.AddDef("客户_车型", "车型")
g.HGroups.AddDef("客户_车号","车号")
g.VGroups.AddDef("统计日期", DateGroupEnum.Year, "{0}年")
g.VGroups.AddDef("统计日期", "{0}月")
g.Totals.AddDef("备件_属性",AggregateEnum.Count, "备件属性")
g.Totals.AddDef("备件_名称",AggregateEnum.Count, "备件名称")
g.Totals.AddDef("备件_总价", "总金额")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Decimals = 2
g.Subtotal = True
Tables("出库统计_Table1").DataSource = g.BuildDataSource()
-- 发布时间：2020/4/22 13:26:00
--
感谢感谢