| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 专业报表中大写金额怎么转换? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=27939) |
| -- 作者：mamuaiqing -- 发布时间：2013/1/14 18:30:00 -- 专业报表中大写金额怎么转换? rt.Cells(6,7).Text = CurRow("金额") &"元" 这行代码是将表格中的单元格绑定到"金额"列, 预览效果:100元, 我想再在后面加上大写转换的要代码要怎么改?
比如效果为:100元 壹百元 ,转换大写用 e.Value = CUMoney(e.Value)
研究半天不知道怎么搞,请教老师 |
| -- 作者：lin_hailun -- 发布时间：2013/1/14 18:39:00 -- Dim Str1 As String Str1 = EUMoney(12345.45) Output.Show(Str1) ----------------------- Dim Str1 As String Str1 = EUNumber(12345) Output.Show(Str1) |
| -- 作者：mamuaiqing -- 发布时间：2013/1/14 20:08:00 -- 感谢林总的指导,代码研究后为: Dim Str1 As String = CurRow("金额")
怎么在报表中的rt.Cells(6,7).Text = CurRow("金额") &"元"代码中加入上面的中文大写? 比如以100为例, 显示为 100元 壹佰元整 |
| -- 作者：mamuaiqing -- 发布时间：2013/1/14 20:18:00 -- 再将代码改为以下这样实现了想要的,但出现了个问题,比如金额为100 显示的是 "100元壹百元整" 文字靠的太近了,需要为:"100元 壹百元整"这样的话要怎么调? rt.Cells(6,1).Text = CurRow("金额") &"元" & CUMoney(CurRow("金额")) |
| -- 作者：狐狸爸爸 -- 发布时间：2013/1/15 8:44:00 -- CUMoney生成的金额，后面本来就有个“整”字
rt.Cells(6,1).Text = CUMoney(CurRow("金额")) [此贴子已经被作者于2013-1-15 8:44:18编辑过]
|
| -- 作者：gajywz -- 发布时间：2013/1/15 9:08:00 -- 回复：（mamuaiqing）再将代码改为以下这样实现了想要... 在数字“元”后面加入空格就行了，你试试：根据距离的远近，加入不同个数的空格。 rt.Cells(6,1).Text = CurRow("金额") &"元"＆" " & CUMoney(CurRow("金额")) |
| -- 作者：mamuaiqing -- 发布时间：2013/1/15 10:04:00 -- 感谢老爹跟gaiywz老师的帮助,问题解决了 |