Question

急！！！！vfp 按钮代码 当文本框输入负数时 命令按钮无效的 代码！！！！在线等！！！！

Answer 1

情况1：如果使命令按钮无效，则在条件符合下不写任何代码即可。
比如，但输入是正数是要做处理，怎可以写：
IF VAL(THISFORM.TEXT1.VALUE)>=0
&&处理的程序
ENDIF

这样就行了。当文本框输入负数是，命令按钮就没作用了，因为条件没成立（没有处理负数的程序）。或者罗嗦点，把以上代码增写为：
IF VAL(THISFORM.TEXT1.VALUE)>=0
&&处理的程序
ELSE
NODEFAULT
ENDIF

情况2.若使按钮变灰，又有几种情况，问题复杂了。比如是否要文本框一输负号时按钮就变灰呢，还是等文本框离开焦点时使按钮变灰呢？按钮变灰后什么情况下又要变可用呢？所以最好的最简便的做法就是如情况1所示。

Answer 2

在TEXT控件的InteractiveChange事件里写如下代码:
IF this.Value<0 &&假设你当前TEXT控件只可输入N型,或自己设置或进行数据类型转化:把this.Value改成VAL(THIS.VALUE)
thisform.command1.Enabled=.F.
ELSE
thisform.command1.Enabled=.T.
endi

只要你键盘输入的数据小于0按键就不可用,反之则可以点击

一楼你的代码是VB吧,VFP里执行不了的

Answer 3

Private Sub Text1_Change()
If Val(Text1) < 0 Then
Command1.Enabled = False
Else
Command1.Enabled = True
End If
End Sub