以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  表事件中不计算的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139723)

--  作者:2327153574
--  发布时间:2019/8/20 10:29:00
--  表事件中不计算的问题

If e.DataCol.Name = "实缴金额" Then
    e.DataRow("实缴金额") = DataTables("租金实缴明细表").Compute("Sum(实缴金额)","[缴费号] = \'" & e.DataRow("缴费号") & "\'")
    e.DataRow("欠缴金额") = e.DataRow("应缴金额")-e.DataRow("实缴金额")
End If

 

 

以上代码,第2行执行了,第3行没有执行,请问是什么原因?


--  作者:有点蓝
--  发布时间:2019/8/20 10:32:00
--  
第3行缴费号是多少?"租金实缴明细表"有这个缴费号的数据吗?

If e.DataCol.Name = "缴费号" Then
    e.DataRow("实缴金额") = DataTables("租金实缴明细表").Compute("Sum(实缴金额)","[缴费号] = \'" & e.DataRow("缴费号") & "\'")
    e.DataRow("欠缴金额") = e.DataRow("应缴金额")-e.DataRow("实缴金额")
elseIf e.DataCol.Name = "实缴金额" orelse e.DataCol.Name = "应缴金额" Then
    e.DataRow("欠缴金额") = e.DataRow("应缴金额")-e.DataRow("实缴金额")
End If


--  作者:2327153574
--  发布时间:2019/8/20 10:51:00
--  
有缴费号
--  作者:有点蓝
--  发布时间:2019/8/20 11:17:00
--  
按2楼代码改