| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 请问能不能做一个按钮，将表格里的元转变为万元 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=37233) |
| -- 作者：tjcep -- 发布时间：2013/7/3 10:45:00 -- 请问能不能做一个按钮，将表格里的元转变为万元 比如表格里的数字都是“元”，一按按键都变为“万元” |
| -- 作者：Bin -- 发布时间：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 & "万元") |
| -- 作者：狐狸爸爸 -- 发布时间：2013/7/3 10:59:00 -- 数字就是数字，别出现元和万元这样的字符，否则不好处理。 |
| -- 作者：tjcep -- 发布时间：2013/7/3 11:06:00 -- 谢谢了
|
| -- 作者：tjcep -- 发布时间：2013/7/3 11:08:00 -- 不出现字符，比如 金额（元） 99999 88888 55555 44444
有一个按键，一按下去，金额自动变为
金额（万元） 10.00 8.89 5.56 4.44 |
| -- 作者：Bin -- 发布时间：2013/7/3 11:21:00 -- 这就是除以 10000 和我2楼的第二个例子一样的. |
| -- 作者：狐狸爸爸 -- 发布时间：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 -- 发布时间：2013/7/3 12:31:00 -- 多谢老大及各位 |