这段代码红色部分运行有问题，如何修改？
Dim dr As DataRow = e.DataRow '定义变化的行,dr为变量.
Select Case e.DataCol.Name
Case "沙月度计划","本期沙月累计"
If dr.IsNull("沙月度计划") OrElse dr("沙月度计划") = 0 Then
dr("沙月度计划兑现") = 0
Else
dr("沙月度计划兑现") = dr("本期沙月累计")/dr("沙月度计划")
End If
Case "石月度计划","本期石月累计"
If dr.IsNull("石月度计划") OrElse dr("石月度计划") = 0 Then
dr("石月度计划兑现") = 0
Else
dr("石月度计划兑现") = dr("本期石月累计")/dr("石月度计划")
End If
Case "沙月度计划","石月度计划"
dr("月度综合计划") = dr("沙月度计划")+dr("石月度计划")----综合计划显示不出来 Case "月度综合计划","本期综合月累计"
If dr.IsNull("月度综合计划") OrElse dr("月度综合计划") = 0 Then
dr("综合月度计划兑现") = 0
Else
dr("综合月度计划兑现") = dr("本期综合月累计")/dr("月度综合计划")----月度计划兑现没有 End If
End Select
加好友 
发短信
Post By：2019/8/27 16:35:00 [只看该作者]
