以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  表属性DataColChanged 代码能否做乘法  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177739)

--  作者:江苏航泰公司郭工
--  发布时间:2022/6/1 14:01:00
--  表属性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

 

重置后,税金列为空白!

请问,代码错在何处?

谢谢,谢谢!!


--  作者:有点蓝
--  发布时间:2022/6/1 14:04:00
--  
原因:http://www.foxtable.com/webhelp/topics/2242.htm