Foxtable(狐表)用户栏目专家坐堂 → [求助]支piao大写日期表达式


  共有10175人关注过本帖树形打印复制链接

主题:[求助]支piao大写日期表达式

美女呀,离线,留言给我吧!
idoicand
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:34 积分:304 威望:0 精华:0 注册:2012/3/5 14:40:00
[求助]支piao大写日期表达式  发帖心情 Post By:2012/3/5 14:45:00 [只看该作者]

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

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


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:34 积分:304 威望:0 精华:0 注册:2012/3/5 14:40:00
  发帖心情 Post By:2012/3/5 15:59:00 [只看该作者]

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

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


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:34 积分:304 威望:0 精华:0 注册:2012/3/5 14:40:00
  发帖心情 Post By:2012/3/5 16:15:00 [只看该作者]

这下成功了!谢谢狐爸!

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


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/3/5 17:55:00 [只看该作者]

看三遍这个就行了:

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


 回到顶部