本人想在一个数字框中输入数字.如:3125如何让它在另一个框中出再:叁仟壹百贰拾伍,就是变成大写的,


本人要作的是财务票子

望高手给个解决方法,最好是原程序:谢谢了,本人急用!!

这是做的程序文件,朋友们帮助看一下错在什么地方了.我输出3214.56,结果不是我要的:叁仟贰佰壹拾四元..而是只出输入了6.为什么,,大家帮看一下,

dx=''
dx1=('仟佰拾元 角分')

je=str(thisform.pageframe1.page4.txt缴费金额.value,8,2)
cd=lenc(je)
*i=1
*do while .t.
*if i>2
*exit
*endif
dx2=''
for i=1 to cd
b1=substr(je,i,1)
do case
case b1='1'
dx='壹'
case b1='2'
dx='贰'
case b1='3'
dx='叁'
case b1='4'
dx='肆'
case b1='5'
je='伍'
case b1='6'
dx='陆'
case b1='7'
dx='柒'
case b1='8'
dx='捌'
case b1='9'
dx='玖'
case b1='0'
dx='零'
otherwise
dx=''
endcase
*i=i+1

dx2=dx+substr(dx1,i,1)
endfor
thisform.pageframe1.page4.label5.caption='币'+dx