- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 控件label 显示数值为负数时，不能转成大写，求解。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106358)
-- 发布时间：2017/9/7 11:05:00
-- 控件label 显示数值为负数时，不能转成大写，求解。
如题，窗口中有Label控件，显示表中数据，当数据为正数时，可正常转换为人民币大写。当表中数据为负数时，则转换不了，
应该在dataformat中怎么定义？最好带注释，谢谢。
-- 发布时间：2017/9/7 11:21:00
--
Dim s As Double = 123.45
msgbox(CUMoney(s))
s = -123.45
If s < 0 Then
s = s*-1
msgbox("负" & CUMoney(s))
End If
-- 发布时间：2017/9/7 14:27:00
--
实在搞不懂了，实例已上传，望大大帮个忙，给个代码.
双击 表a，弹出协议明细窗口，点击 确认无误，准备打印 按钮，弹出 预览窗口，控件label21，为显示金额的大小写，正数没问题，负数不显示。
麻烦给个说明，帮助文件看了好多，也没有找到相关的内容。
-- 发布时间：2017/9/7 14:29:00
--
怎么又传不聊附件了？？
-- 发布时间：2017/9/7 14:30:00
--
晕了。。。。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.rar |
-- 发布时间：2017/9/7 14:58:00
--
DataFormat事件
Dim d As Double = e.Value
If d < 0 Then
d = d*-1
e.text = "负" & CUMoney(d)
Else
e.text = CUMoney(d)
End If