函数参数的值或类型错误

是90吗 也许是版本的问题

看前面的回帖
lnLen=Len(Alltrim(Padl(x,20," ")))-2 -2是错误的根源
改为
lnLen=Len(Alltrim(Padl(x,20," ")))
就正常了

[ 本帖最后由 sdta 于 2014-12-10 10:55 编辑 ]

在vfp6.0运行
找不到函数参数的值value
楼上改了代码后还是显示函数参数的值，类型，或数目无效

[ 本帖最后由 ycvf 于 2014-12-10 10:23 编辑 ]

代码中所用的函数都是VFP6中有的
不会是抄代码都抄错了吧
直接将代码复制到相应事件中，再做修改吧。
说明楼主是个粗心之人。

[ 本帖最后由 sdta 于 2014-12-10 10:35 编辑 ]

4楼代码在vpf6下能够运行  不会出错

不过是在prg环境下   楼主是不是在表单环境下呢  也许是其他和本题无关的错误吧

是在表单环境下

前面回帖中代码图片都有，不知楼主是否看了

对比了一上午，找不到问题所在。求帮找错

x=int(thisform.text1.value) &&thisform.text1.value 你本设它为数值型了，不需要再用 val()转换
*InLen=len(alltrim(padl(x,20," "))) &&alltrim（）和 padl()不是有矛盾吗
InLen=len(padl(x,20," ")) &&注意" "中是有一个空格的
y1=int(x/100)
x=x-100*y1
y2=int(x/50)
x=x-50*y2
y3=int(x/20)
x=x-20*y3
y4=int(x/10)
x=x-10*y4
y5=int(x/5)
x=x-5*y5
y6=int(x/2)
x=x-2*y6
y7=x
a="==========="+chr(13)
a=a + padl(y1,InLen," ")+"张100元票"+padl(y2,InLen," ")+"张50元票"+chr(13)
a=a + padl(y3,InLen," ")+"张20元票"+padl(y4,InLen," ")+"张10元票"+chr(13)
a=a + padl(y5,InLen," ")+"张5元票"+padl(y6,InLen," ")+"张2元票"+chr(13)
a=a + padl(y7,InLen," ")+"张1元票"+chr(13)
a=a+"========="+chr(13)
a=a+"共计"+TRANSFORM(thisform.text1.value)+"元"
messagebox(a,0,"取款")
thisform.text1.setfocus


[ 本帖最后由 kiff 于 2014-12-10 15:40 编辑 ]