- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请问一下，当我在合计金额这里填入‘一’时，有没有办法让他打印时自动转化为大写的‘壹’呢，我用了 e.text=cumoney(e.value)这个显示不行呢，它是显示’一元整‘的，求解 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111756)
-- 发布时间：2017/12/28 16:53:00
-- 请问一下，当我在合计金额这里填入‘一’时，有没有办法让他打印时自动转化为大写的‘壹’呢，我用了 e.text=cumoney(e.value)这个显示不行呢，它是显示’一元整‘的，求解
请问一下，当我在合计金额这里填入‘一’时，有没有办法让他打印时自动转化为大写的‘壹’呢，我用了 e.text=cumoney(e.value)这个显示不行呢，它是显示’一元整‘的，求解
此主题相关图片如下：qq截图20171228165004.png
-- 发布时间：2017/12/28 17:48:00
--
参考代码
dim str1 as string = "零一二三四五六七八九"
dim str2 as string = "0123456789"
dim s as string = "五"
dim str as string = CUNum(val(str2(str1.indexof(s))))
msgbox(str)
-------------------
Dim str1 As String = "零一二三四五六七八九"
Dim str2 As String = "0123456789"
Dim s As String = e.value
Dim str As String = CUNum(val(str2(str1.indexof(s))))
e.text = str
-- 发布时间：2017/12/28 17:54:00
--
好，谢谢
-- 发布时间：2017/12/28 18:02:00
--
就是这一句有点不是很理解
-- 发布时间：2017/12/28 18:03:00
--
Dim str As String = CUNum(val(str2(str1.indexof(s))))
-- 发布时间：2017/12/28 18:15:00
--
在str1查找s的位置，在str2取出对应位置的值。
http://www.foxtable.com/webhelp/scr/0236.htm
-- 发布时间：2017/12/28 23:20:00
--
好的，谢谢