建议修改为：
Dim Val As Double
Val = Tables("打印fa piao_Table1").Compute("Sum(金额)","分组 = '" & min & "' And 打印 = False" )
e.form.Controls("Label6").Text = CUMoney(Round2(val,2))
加好友 
发短信
Post By：2014/2/17 8:40:00 [显示全部帖子]
