主题：表属性DataColChanged 代码能否做乘法

 

有点蓝老师：

您好！有下列一事请您指教。

表属性DataColChanged 做加减很好，但做乘法，却空白，数据不显示。代码如下：

Dim dr As DataRow = e.DataRow

Select Case e.DataCol.Name

      Case "工人薪酬","管理人员薪酬", "经营报支","工伤保险","社会保险","意外保险","防护与易耗品费", "下属单位费用"

        dr("总成本") = dr("工人薪酬") +dr("管理人员薪酬")+dr("经营报支")+ dr("工伤保险")+dr("社会保险")+dr("意外保险")+dr("防护与易耗品费")+ dr("下属单位费用")

       Case "净产值","总成本"

        dr("利润") = dr("净产值")-dr("总成本")

Case "净产值"

 dr("税金") = dr("净产值")*0.1277

        Case "利润","税金"

        dr("净利润") = dr("利润")-dr("税金")

End Select

 

重置后，税金列为空白！

请问，代码错在何处？

谢谢，谢谢！！