Foxtable(狐表) → 用户栏目 → 专家坐堂 → 两次统计出现的错误提示!


  共有5111人关注过本帖树形打印复制链接

主题：两次统计出现的错误提示!
帅哥哟，离线，有人找我吗？
blackzhu
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		两次统计出现的错误提示!  发帖心情 Post By：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
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2013/11/5 9:47:00 [显示全部帖子]

但是这个错误后 可以执行统计.

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2013/11/5 9:49:00 [显示全部帖子]

  我看看

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2013/11/5 9:55:00 [显示全部帖子]

我不懂怎么弄了.

g1.Totals.AddDef("数值_10")
g1.Build()

 这个g1.Build()  这边出现了一个提示
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2013/11/5 10:42:00 [显示全部帖子]

来了例子

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:多统计.foxdb



  窗口按钮
[此贴子已经被作者于2013-11-5 10:41:59编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2013/11/5 11:07:00 [显示全部帖子]

 我也看到了 但是 有个 问题 为啥 零除于零 会是 非数字呢?而不是零呢?  那这个怎么解决?
[此贴子已经被作者于2013-11-5 11:11:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2013/11/5 11:49:00 [显示全部帖子]

For Each dr As DataRow In DataTables("统计表21").Datarows
    If dr("合格率") ="非数字" Then
        dr("合格率") = 0
    End If
Next


这样修改无效?  为啥?
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2013/11/5 12:17:00 [显示全部帖子]

bin  还是修改不了!

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2013/11/5 12:45:00 [显示全部帖子]

哦 原来是我合成表达式错了,我本来也想用IIF来的  现在可以了. 谢谢老大.

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2013/11/5 13:06:00 [显示全部帖子]

请教下:

For Each cl As DataCol In DataTables("统计表1").DataCols
    Select Case cl.Caption
        Case "日期","部门","报表名称","组别","管组民警","统计类型"
            With DataTables("统计表1")
                .DataCols(cl.Name).Caption = cl.Caption & "_" & cl.Caption
                .BuildHeader()
            End With
        Case "款号","品名","分配到组当日订单任务(件)","当日人数","每人每日定额(元)"
            With DataTables("统计表1")
                .DataCols(cl.Name).Caption = "1.劳动生产任务分配数据_" & cl.Caption
                .BuildHeader()
            End With
        Case "当日产量(件)","单价(元)","产值(元)","人均产值(元)","超欠%","本月累计完成产值(元)","本月累计完成百分比%","累计完成数量(件)","当日完成任务的人数","当日完成任务的人数百分比%","当日实际产值低于60%的人数"
            With DataTables("统计表1")
                .DataCols(cl.Name).Caption = "2.劳动任务完成情况_" & cl.Caption
                .BuildHeader()
            End With
        Case "当日送检数量(件)","合格数量(件)","不合格数量(件)","合格率(%)","质量合格率≤70%的人数"
            With DataTables("统计表1")
                .DataCols(cl.Name).Caption = "3.质量控制统计_" & cl.Caption
                .BuildHeader()
            End With
    End Select
Next

 如何按照列标题排在一起?
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 6 次数据查询