以文本方式查看主题

-  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=121512)

--  作者:wuchangke4
--  发布时间:2018/7/8 7:47:00
--  代码为何不执行
If e.DataCol.name = "Lwg32" Or e.DataCol.name = "Lwg12" Then
  e.DataRow("Lwg32") = e.DataRow("LwgC32") + e.DataRow("LwgT32")
  e.DataRow("Lwg12") = e.DataRow("LwgC12") + e.DataRow("LwgT12")
End If


--  作者:y2287958
--  发布时间:2018/7/8 7:52:00
--  
代码没问题
--  作者:wuchangke4
--  发布时间:2018/7/8 8:26:00
--  
为何不执行呢
--  作者:y2287958
--  发布时间:2018/7/8 9:07:00
--  
具体问题及分析
--  作者:有点甜
--  发布时间:2018/7/9 9:46:00
--  

改成

 

Select Case e.DataCol.Name
    Case "LwgC32", "LwgT32", "LwgC12", "LwgT12"
       e.DataRow("Lwg32") = e.DataRow("LwgC32") + e.DataRow("LwgT32")
       e.DataRow("Lwg12") = e.DataRow("LwgC12") + e.DataRow("LwgT12")
End Select