主题：还是那个问题啊。表单文本框中金额大小写转换问题。
巫行云
[专家分：0] 发布于 2011-10-29 00:01:00
在一个表单中有两个文本框,text1,text2,text1中是小写金额,如344556.78.怎样实现在text2中转换为大写的金额.先谢了。如果是函数代码，函数代码放到text1或text2的哪一个事件中。如果是程序代码，也怎么个加载法。
回复列表 （共7个回复）
沙发
巫行云 [专家分：0] 发布于 2011-10-29 07:23:00
难道就没有一位高手出手赐教吗？这不会是个最难解决的问题吧。
板凳
sywzs [专家分：5650] 发布于 2011-10-29 10:24:00
在本论坛中搜一下，此类帖子有很多。
3 楼
巫行云 [专家分：0] 发布于 2011-10-29 18:33:00
我找了，可都是说的代码啊，程序啊，可这些代码，程序放到哪里啊？怎么引用啊？没有说，我是个初学者，可能这样问显的很菜鸟啊。
4 楼
sywzs [专家分：5650] 发布于 2011-10-30 06:16:00
代码放在 Text1 的 Valid 事件中，或者 Lostfocus 事件中。
5 楼
qjbzjp [专家分：8830] 发布于 2011-10-30 09:46:00
还可以在Text1的KeyPress事件中捕获按下了回车键，再进行转换：
IF nKeyCode=13
thisform.text2.Value=……
ENDIF
6 楼
wwg [专家分：520] 发布于 2011-10-30 16:23:00
还可以在Interactivechange事件中
7 楼
wwg [专家分：520] 发布于 2011-10-30 16:30:00
parameter pje
if pje=0
pdxje='零'
else
pdx='零壹贰叁肆伍陆柒捌玖'
pjedw='分角元拾佰仟万拾佰仟亿拾佰仟万'
pjec=strt(allt(str(pje,18,2)),'.','')
do whil subs(pjec,1,1)='0'
pjec=subs(pjec,2)
endd
pcd=len(pjec)
pdxje=''
for n=1 to pcd
pzf=subs(pjec,pcd-n+1,1)
if n=1 and pzf='0'
pdxje='整'
else
if n=2 and pzf='0'
pdxje=iif(pdxje='整',pdxje,'零'+pdxje)
else
if pzf='0' and (n=3 or n=7 or n=11)
pdxje=subs(pjedw,n*2-1,2)+pdxje
plbz=.t.
else
if pzf='0'
if !plbz
pdxje=subs(pdx,val(pzf)*2+1,2)+pdxje
endi
plbz=.t.
else
plbz=.f.
pdxje=subs(pdx,val(pzf)*2+1,2)+subs(pjedw,n*2-1,2)+pdxje
endi
endi
endi
endi
endf
endi
retu pdxje
我来回复
您所在位置：社区首页 — Visual Foxpro讨论区 — 还是那个问题啊。表单文本框中金额大小写转换问题。