- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 根据复选框勾选情况计算金额 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86655)
-- 发布时间：2016/6/22 16:48:00
-- 根据复选框勾选情况计算金额
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:获奖.zip |
根据复选框勾选情况计算金额
[此贴子已经被作者于2016/6/22 16:52:58编辑过]
-- 发布时间：2016/6/22 17:00:00
--
勾选了就计算盈额
[此贴子已经被作者于2016/6/22 17:01:48编辑过]
-- 发布时间：2016/6/22 17:01:00
--
没有勾选的就计算亏额
-- 发布时间：2016/6/22 17:15:00
--
参考代码
Dim t As Table = Tables("tbltz")
Dim r As Row = t.Current
Dim sum1 As Double = 0
Dim sum2 As Double = 0
For Each c As Col In t.Cols
If c.Caption Like "*投zhu(元)" Then
If r(t.cols(c.Index+1)) = True
sum1+=r(c)
Else
sum2+=r(c)
End If
End If
Next
msgbox(sum1 & " " & sum2)
-- 发布时间：2016/6/22 17:18:00
--
或者直接写公式也可以
iif([Isdanzz]=true,isnull([danj],0),0) + iif([Isshuangzz]=true, isnull([shuangj],0), 0)