以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  专业报表里面金额如何按位打出会计符号: 一个圈里面有一个X  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=173323)
--  作者：sloyy
--  发布时间：2021/11/24 12:17:00
--  专业报表里面金额如何按位打出会计符号: 一个圈里面有一个X
代码节选:
 rx = new prt.RenderText
        rx.Text =GetDigit(CurRow("收款金额"),6,"○X")  \'百万
        rx.x = 23+X
        rx.y = 47+Y
        doc.body.Children.Add(rx)

结果  打不出会计符号 一个圈里面有个X
--  作者：有点蓝
--  发布时间：2021/11/24 13:39:00
--  
百度了一下，试试

1、使用图片
2、把字体改为WingDings 2，然后输入“U”
--  作者：sloyy
--  发布时间：2021/11/25 2:57:00
--  
采用第二种方法,搞定!
代码修改如下:
rx = new prt.RenderText

rx.x = 23+X
rx.y = 47+Y
If GetDigit(CurRow("收款金额"),6) = "￥" Or GetDigit(CurRow("收款金额"),6) =Nothing Then
    rx.Style.Font = New Font("WingDings 2",12)
    rx.Text ="U"  \'百万
Else
    rx.Text =GetDigit(CurRow("收款金额"),6)  \'百万
End If
doc.body.Children.Add(rx)