Foxtable(狐表)用户栏目专家坐堂 → 请问能不能做一个按钮,将表格里的元转变为万元


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

主题:请问能不能做一个按钮,将表格里的元转变为万元

帅哥哟,离线,有人找我吗?
tjcep
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:28 积分:401 威望:0 精华:0 注册:2013/4/24 22:16:00
请问能不能做一个按钮,将表格里的元转变为万元  发帖心情 Post By:2013/7/3 10:45:00 [只看该作者]

比如表格里的数字都是“元”,一按按键都变为“万元”

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/7/3 10:53:00 [只看该作者]

Dim s As String = "100000元"
MessageBox.show(s.SubString(0,s.length-5) & "万元")

或者

Dim s As String = "100002元"
MessageBox.show(Val(s.SubString(0,s.length-1))/10000 & "万元")

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


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

数字就是数字,别出现元和万元这样的字符,否则不好处理。


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


加好友 发短信
等级:婴狐 帖子:28 积分:401 威望:0 精华:0 注册:2013/4/24 22:16:00
  发帖心情 Post By:2013/7/3 11:06:00 [只看该作者]

谢谢了

 


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


加好友 发短信
等级:婴狐 帖子:28 积分:401 威望:0 精华:0 注册:2013/4/24 22:16:00
  发帖心情 Post By:2013/7/3 11:08:00 [只看该作者]

不出现字符,比如

金额(元)

99999

88888

55555

44444

 

 

有一个按键,一按下去,金额自动变为

 

金额(万元)

10.00

8.89

5.56

4.44


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/7/3 11:21:00 [只看该作者]

这就是除以 10000  和我2楼的第二个例子一样的.

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


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

做个按钮,或者在命令窗口执行:

 

for each r as row in Tables("表名").Rows

    r("列名") = Math.Round(r("列名")/10000, 2)

Next

[此贴子已经被作者于2013-7-3 11:57:37编辑过]

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


加好友 发短信
等级:婴狐 帖子:28 积分:401 威望:0 精华:0 注册:2013/4/24 22:16:00
  发帖心情 Post By:2013/7/3 12:31:00 [只看该作者]

多谢老大及各位

 回到顶部