命令按钮代码
set defa to D:\ydxt
sele 30
b=alltrim(str(thisform.text1.VALUE))
use lsydk
appe from D:\ydxt\lzzk for xh=b
use
do form d:\ydxt\zgyd
提示函数参数的值，类型无效。求高手指点，怎么把TEXT1赋值为数值型

[ 本帖最后由 wangjiap 于 2014-5-14 15:48 编辑 ]

把文本框的TEXT1赋值为b：ThisForm.Text1.Value=B。你写的代码(红色文字处)变成了循环引用，看出来了吗？设置文本框的某一属性值为B的值，又把B的值赋上文本框的值。你写完代码后有没有手工模拟运行过？还有，第二句红色语句，Text1是一个文本框对象，怎么能用STR()函数呢？应该是ALLTRIM(STR(Thisform.Text1.Value))。那么，如果变量B是字符型的话，第一句红色语句就不对啦，Visible属性值要求是逻辑型啊。

变量b是数值型的，改后显示函数参数的值，类型无效。求高手指点，怎么把TEXT1赋值为数值型

set defa to D:\ydxt
sele 30
b=alltrim(str(thisform.text1.VALUE))
use lsydk
appe from D:\ydxt\lzzk for xh=b
use
do form d:\ydxt\zgyd
该怎么修改啊

我2楼回复的第一句话你是不是没有看懂？“=”赋值命令应该哪方在左，哪方在右你是否研究过？

alltrim(str(thisform.text1.VALUE))=b 提示语法错误
这个赋值把TEXT1赋值为数值变量B怎么写啊
真是不知道啊

等号赋值命令要求其左边为变量，右边为表达式。形象点说，左边是讨饭的，右边是施舍的。这样应该能记住了吧？

哦 这样啊 我开始是这样写的
set defa to D:\ydxt
sele 30
b=alltrim(str(thisform.text1.VALUE))
use lsydk
appe from D:\ydxt\lzzk for xh=b
use
do form d:\ydxt\zgyd
提示函数参数的值、类型或数目无效，该怎么修改啊

b=val(thisform.text1.VALUE)

很简单，在文本框的init 事件中写入：this.value=0