窗口 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有10971人关注过本帖树形打印复制链接主题：窗口

狐狸爸爸

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/7/28 9:46:00 [只看该作者]

可以的啊：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目11.table

张子俊

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：324 积分：3265 威望：0 精华：0 注册：2012/6/19 16:20:00

Post By：2012/7/28 15:33:00 [只看该作者]

、

rjh4078

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00

Post By：2012/7/29 10:05:00 [只看该作者]

其实楼上有位兄弟的代码你没在意他的思路很好的我修改了下 e.value= CUMoney(e.value).Replace("元","点").Replace("分","").replace("角","").replace("整","") & "吨"

张子俊

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：324 积分：3265 威望：0 精华：0 注册：2012/6/19 16:20:00

Post By：2012/7/31 20:06:00 [只看该作者]

朋友：这个代码（e.value= CUMoney(e.value).Replace("元","点").Replace("分","").replace("角","").replace("整","") & "吨"）对有小数的值还是有用的。但出现整数就不灵了。谢谢！看还有好的办法没。

rjh4078

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00

Post By：2012/7/31 20:53:00 [只看该作者]

其实思路已经给你了我再写明白点吧加个语句判断值是整数还是小数注意这里已经假设 e.value是double型的了 if e.value=int(e.value) then e.value= CUMoney(e.value).Replace("元","").Replace("分","").replace("角","").replace("整","") & "吨" else e.value= CUMoney(e.value).Replace("元","点").Replace("分","").replace("角","").replace("整","") & "吨" end if

[此贴子已经被作者于2012-7-31 20:53:40编辑过]

rjh4078

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00

Post By：2012/7/31 20:56:00 [只看该作者]

如果要测试或修改可以参考下面代码把代码复制到命令窗口里执行其中a是变量 e.value 可以通过修改a的值来查看效果 Dim a As Double Dim b As String a=3 If a=Int(a) Then b= CUMoney(a).Replace("元","").Replace("分","").replace("角","").replace("整","") & "吨" output.show(b) Else b= CUMoney(a).Replace("元","点").Replace("分","").replace("角","").replace("整","") & "吨" output.show(b) End If

张子俊

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：324 积分：3265 威望：0 精华：0 注册：2012/6/19 16:20:00

Post By：2012/8/19 9:52:00 [只看该作者]

这个问题解决了：e.value= CUMoney(e.value).Replace("元","吨").Replace("分","").replace("角","")

如：38.52吨，可以转换为叁拾捌吨伍贰

[此贴子已经被作者于2012-8-19 9:53:45编辑过]

下一主题 >> << 上一主题

总数 17 上一页 1 2

主题：窗口