各位老师帮看看:
Dim T1,T2,T3 As Double dim ta,tb,tc as string T1 = tables("收据明细").Compute("Sum(金额)","币制 = 'USD'") T2 = tables("收据明细").Compute("Sum(金额)","币制 = 'RMB'") T3 = tables("收据明细").Compute("Sum(金额)","币制 = 'HKD'") if t1 > 0 then ta = "USD:" & format(T1,"#.00") end if if t2 > 0 then tb = "RMB:" & format(T2,"#.00") end if if t3 > 0 then tc = "HKD:" & format(T3,"#.00") end if rs.Text = "TOTAL: " & ta & " " & tb & " " & tc
显示的结果是对的,但系统说TA在赋值前被使用.哪如何更改如上代码呢.
|