以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  这段代码怎么运行就出错了？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=139974)
--  作者：scofields
--  发布时间：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
--  发布时间：2019/8/26 23:15:00
--  
 如果石月度计划值不出来，就没有沙、石的月度计划兑现，好烦人的啊。
--  作者：有点蓝
--  发布时间：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