- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 两次统计出现的错误提示! (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=42141)
-- 发布时间：2013/11/5 9:45:00
-- 两次统计出现的错误提示!
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
-- 发布时间：2013/11/5 9:47:00
--
但是这个错误后 可以执行统计.
-- 发布时间：2013/11/5 9:47:00
--
提示已经明确告诉你问题所在了,你只需要在赋值的时候弹出一下你将要赋的值 看看是不是超长了. 然后再分析为什么会超长即可.
-- 发布时间：2013/11/5 9:49:00
--
我看看
-- 发布时间：2013/11/5 9:55:00
--
我不懂怎么弄了.
g1.Totals.AddDef("数值_10")
g1.Build()
这个g1.Build() 这边出现了一个提示
-- 发布时间：2013/11/5 10:01:00
--
上例子
-- 发布时间：2013/11/5 10:42:00
--
来了例子
窗口按钮
[此贴子已经被作者于2013-11-5 10:41:59编辑过]
-- 发布时间：2013/11/5 10:51:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:多统计.foxdb |
原因很简单,你统计表21统计的合格率有 非数字 然后你统计表1又统计 合格率这一列自然会报错.
-- 发布时间：2013/11/5 11:07:00
--
我也看到了 但是 有个 问题 为啥 零除于零 会是 非数字呢?而不是零呢? 那这个怎么解决?
[此贴子已经被作者于2013-11-5 11:11:07编辑过]
-- 发布时间：2013/11/5 11:09:00
--
你做个判断,改为0 不要让非数字存在即可.