用专业报表打印票据发现一个问题:在预览的时候金额处有口符号 ,,如图

此主题相关图片如下：qq截图20120815182145.png

应该如何处理掉?

部分代码:

 Dim yw As New prt.RenderText \'金额---亿位
    yw.Text  = GetDigit(r("金额"),8)
    yw.X = val(prt.DataRows(0)("亿位_X"))
    yw.y = val(prt.DataRows(0)("亿位_Y"))
    Doc.body.Children.Add(yw)
    \'-------------------------
    Dim qw As New prt.RenderText \'金额---千万
    qw.Text  = GetDigit(r("金额"),7)
    qw.X = val(prt.DataRows(0)("千万_X"))
    qw.y = val(prt.DataRows(0)("千万_Y"))
    Doc.body.Children.Add(qw)
    \'-------------------------
    Dim bw As New prt.RenderText \'金额---百万
    bw.Text  = GetDigit(r("金额"),6)
    bw.X = val(prt.DataRows(0)("百万_X"))
    bw.y = val(prt.DataRows(0)("百万_Y"))
    Doc.body.Children.Add(bw)
    \'-------------------------
    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"))

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