以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求教单据套打的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=60918)

--  作者:海阔天空pl
--  发布时间:2014/12/3 23:30:00
--  求教单据套打的问题
有些单据的金额大写部分已经印刷好的大写空位,如     万      仟      佰      拾       元      角      分 。用 GetDigit(金额,1)可以取得每位的数字,但如何转换成大写数字呢?
--  作者:Bin
--  发布时间:2014/12/4 8:06:00
--  
应有尽有 http://www.foxtable.com/help/topics/1415.htm
--  作者:海阔天空pl
--  发布时间:2014/12/4 8:32:00
--  

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

 

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

e.Value = CUNum(a)

 

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

 

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


--  作者:Bin
--  发布时间:2014/12/4 8:39:00
--  
你这是写在哪里的,没有这样的语法. 具体请上个例子.
--  作者:有点甜
--  发布时间:2014/12/4 9:05:00
--  

 去编写dataformat事件

 

http://www.foxtable.com/help/topics/0737.htm

 


--  作者:海阔天空pl
--  发布时间:2014/12/4 9:18:00
--  

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

 

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

[此贴子已经被作者于2014-12-4 9:20:41编辑过]

--  作者:有点甜
--  发布时间:2014/12/4 9:21:00
--  
e.Value = CUNum(cstr(GetDigit(e.Value,0)))
--  作者:海阔天空pl
--  发布时间:2014/12/4 9:40:00
--  

甜版:

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

[此贴子已经被作者于2014-12-4 9:45:43编辑过]

--  作者:有点甜
--  发布时间:2014/12/4 9:41:00
--  
 必须是数字啊
--  作者:海阔天空pl
--  发布时间:2014/12/4 9:47:00
--  
自动出来的,如何去除这个“¥”