主题：汇总显示

 不明你的意思，代码不是没有错吗？你看看红色代码是否有对应的数据

If e.Form.Controls("金额").text <> "" Then
    nr("金额") = CInt(e.Form.Controls("金额").text )
    Dim ccfs As DataRow = DataTables("存支方式").find("del=1 and 编号 = '" & nr("存支方式编号") & "'")
    If ccfs IsNot Nothing Then

        msgbox("aaabbbccc")
        nr("收入汇总") = Tables("收入表窗口_Table1").Compute("Sum(金额)","账号卡号 = '" & ccfs("卡号") & "'")
    End If
End If