主题：根据复选框勾选情况计算金额

参考代码

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)

或者直接写公式也可以

iif([Isdanzz]=true,isnull([danj],0),0) + iif([Isshuangzz]=true, isnull([shuangj],0), 0)