加上这段代码,看弹出什么
msgbox(e.DataRow("支出单号"))
msgbox("支出单号 = '" & e.DataRow("支出单号") & "'")
Tables("zcmain").Current("预支金额") = DataTables("zcsub").Compute("sum(预支金额)","支出单号 = '" & e.DataRow("支出单号") & "'")
msgbox(DataTables("zcsub").Compute("sum(预支金额)","支出单号 = '" & e.DataRow("支出单号") & "'") )