dim sum as double=sum11 + sum12 + sum13 - sum14 - sum15
if sum=0 then
e.Form.Controls("合计结果1").Text ="0.00"
else
if sum >0 then
e.Form.Controls("合计结果1").Text = "欠公司" & format(sum11 + sum12 + sum13 - sum14 - sum15, "#.00") else
e.Form.Controls("合计结果1").Text = "公司欠" & format(sum11 + sum12 + sum13 - sum14 - sum15, "#.00")
end if
end if