以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]支piao大写日期表达式  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=17162)

--  作者:idoicand
--  发布时间:2012/3/5 14:45:00
--  [求助]支piao大写日期表达式

支票的年份用CCNumber显示出来是“贰仟零壹拾贰”

如果我要显示为“贰零壹贰"该如何设置?请高手解答!


--  作者:狐狸爸爸
--  发布时间:2012/3/5 15:43:00
--  
Dim val As Integer = 2012
Dim svl As String = val
Dim out As String
For Each c As Char In svl
    out = out & CUNumber(c)
Next
output.show(out)

--  作者:idoicand
--  发布时间:2012/3/5 15:59:00
--  

不好意思,我复制了上面的代码没显示出来“贰零壹贰",什么显示也没有了,还请狐爸再帮忙看一下。

再说明一下我是设计票据打印其中一个标签为年份的大写,上面的语句是贴到Dataformat上的。


--  作者:狐狸爸爸
--  发布时间:2012/3/5 16:01:00
--  

上面的代码是告诉你一个方法的,DataForm事件的话:

 

 

Dim svl As String = e.Value
Dim out As String
For Each c As Char In svl
    out = out & CUNumber(c)
Next
e.Value = out

 


--  作者:idoicand
--  发布时间:2012/3/5 16:15:00
--  

这下成功了!谢谢狐爸!

我是菜鸟,这个语言只能一点一点请教了。有没有网上的资源可以稍微系统的学习一下数据库语言?


--  作者:狐狸爸爸
--  发布时间:2012/3/5 17:55:00
--  

看三遍这个就行了:

图片点击可在新窗口打开查看