各位老师帮看看:
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在赋值前被使用.哪如何更改如上代码呢.