这段代码怎么运行就出错了？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这段代码怎么运行就出错了？

共有3374人关注过本帖树形打印复制链接主题：这段代码怎么运行就出错了？

scofields

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：564 积分：4561 威望：0 精华：0 注册：2016/4/17 20:05:00

这段代码怎么运行就出错了？ 发帖心情

Post By：2019/8/26 23:13:00 [只看该作者]

为什么这段代码有问题？

Dim dr As DataRow = e.DataRow

S elect Case e.DataCol.Name

Case "沙月度计划","石月度计划","沙月度计划兑现" ,"石月度计划兑现","本期沙月累计","本期石月累计"

        If dr.IsNull("沙月度计划") OrElse dr.IsNull("石月度计划") Then
            dr("沙月度计划兑现") = "0"
            dr("石月度计划兑现") = "0"
        Else
            dr("沙月度计划兑现") = dr("本期沙月累计")/dr("沙月度计划")
            dr("石月度计划兑现") = dr("本期石月累计")/dr("石月度计划")
            End If

end S elect

scofields

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：564 积分：4561 威望：0 精华：0 注册：2016/4/17 20:05:00

Post By：2019/8/26 23:15:00 [只看该作者]

如果石月度计划值不出来，就没有沙、石的月度计划兑现，好烦人的啊。

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/8/27 8:41:00 [只看该作者]

Dim dr As DataRow = e.DataRow

S elect Case e.DataCol.Name

Case "沙月度计划","本期沙月累计"

        If dr.IsNull("本期沙月累计") OrElse dr.IsNull("沙月度计划") orelse dr("沙月度计划") = 0 Then
            dr("沙月度计划兑现") = 0
        Else
            dr("沙月度计划兑现") = dr("本期沙月累计")/dr("沙月度计划")
            End If

Case "石月度计划","本期石月累计"

        If dr.IsNull("本期石月累计") OrElse dr.IsNull("石月度计划") orelse dr("石月度计划") = 0  Then
            dr("石月度计划兑现") = "0"
        Else
            dr("石月度计划兑现") = dr("本期石月累计")/dr("石月度计划")
            End If

end S elect

下一主题 >> << 上一主题

主题：这段代码怎么运行就出错了？