以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  数字转换为中文大写  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129527)
--  作者：cyrollin
--  发布时间：2018/12/30 16:29:00
--  数字转换为中文大写
效果没实现。。。。。

               If drt("金额") <> Nothing
                    Dim prs As Integer = drt("金额")
                    drt("人民币大写") = CUNumber(prs)
                End If

refer to : http://www.foxtable.com/webhelp/scr/0318.htm
--  作者：有点甜
--  发布时间：2018/12/30 17:25:00
--  

加入代码，看弹出什么

 

msgbox(drt("金额"))