入库明细为空也显示金额大写,有时入库明细有数值时不显示大写
Dim 金额_大写 As Double = Tables("入库明细").Compute("Sum(含税金额)")e.Form.Controls("金额大写").value = CUMoney(金额_大写)