主题：[求助]用专业报表打印piao据金额问题.

Dim sw As New prt.RenderText '金额---十万
sw.Text = GetDigit(r("金额"),5)
sw.X = val(prt.DataRows(0)("十万_X"))
sw.y = val(prt.DataRows(0)("十万_Y"))

改为：

If GetDigit(r("金额"),5) > "" then
    Dim sw As New prt.RenderText '金额---十万
    sw.Text = GetDigit(r("金额"),5)
    sw.X = val(prt.DataRows(0)("十万_X"))
    sw.y = val(prt.DataRows(0)("十万_Y"))

End if