主题：求教单据套打的问题

有些单据的金额大写部分已经印刷好的大写空位，如     万      仟      佰      拾       元      角      分 。用 GetDigit(金额,1)可以取得每位的数字，但如何转换成大写数字呢？

我用这两个函数嵌套：CUNum(Value)和GetDigit(Value,Position,Symbol)

 

dim a As Integer = GetDigit([金额],0)

e.Value = CUNum(a)

 

出错：“char”值不能转换为“Integer”。

 

在易表里如下代码就可以实现CUNum(MidNum([金额],-1))，请问狐表里怎么实现？

是在dataformat里写的，开始我写成：e.Value = CUNum(GetDigit(e.Value,0))   出错

 

__万__仟__佰__拾__元__角__分    就想这样套打的。像易表里的CUNum(MidNum([金额],-1))命令

甜版：

从字符串“￥”到类型“Integer”的转换无效。

自动出来的，如何去除这个“￥”

用GetDigit函数，不管是什么金额都在前面加个“货币”符号，它不是数字，要把它去除才行

 

除了GetDigit还有没有其他函数代替？

在易表里用CUNum(MidNum([金额],-1))就可实现，在狐表里无法实现此功能吗，抓狂

那就只好把原单据都作废了，直接用e.Value = CUMoney(e.Value)算啦

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:支付.table

甜版你好，结果快接近了，因为这样不报错了，但是由于控件绑定了“金额”，语句

Else
e.Value = Nothing
意思是不给它赋值，但是却显示的“金额”的全部，结果是这样：3429.72 拾 3429.72 万 叁 仟 肆 佰 贰 拾 玖 元 柒 角 贰 分