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

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

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