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


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

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

帅哥哟,离线,有人找我吗?
blackzhu
  11楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望: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


这样修改无效?  为啥?

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/11/5 11:52:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  13楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2013/11/5 12:17:00 [只看该作者]

bin  还是修改不了!

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/11/5 12:39:00 [只看该作者]

不会从源头考虑吗?

 

DataTables("统计表21").DataCols.Add("合格率",Gettype(Double),"iif(" & 合格数量 & " <> 0," & 合格数量 & "/" & 送检数量 & "*100,0)" ,"合格率")


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  15楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2013/11/5 12:45:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  16楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望: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

 如何按照列标题排在一起?

 回到顶部
总数 16 上一页 1 2