if thisform.grid1.recordsource='临时人员信息表'
   thisform.grid1.recordsource='人员信息表'
endif'
private CXTJ
if empty() or empty() ;
   or empty(thisform.text1.value) && 判断列表框和文本框是否为空
    messagebox('请输入完整条件！',16,'系统提示')
   
else
  do case
    case alltrim()='基本工资'
     CXTJ=alltrim();     +' '+alltrim();
     +' '+alltrim(thisform.text1.value)
    case alltrim()='编号'
     CXTJ=alltrim();     +' '+alltrim();
     +' '+alltrim(thisform.text1.value)
    otherwise
     CXTJ=alltrim();     +' '+alltrim();
     +' "'+alltrim(thisform.text1.value)+'"'
  endcase
  Select * from 人员信息表 where &CXTJ. into cursor 临时人员信息表
  thisform.grid1.recordsource='临时人员信息表'
  thisform.grid1.backcolor=rgb(200,224,248)
endif
以上代码谁能加个判断语句呀，当我选择编号（N）查询时，在文本框中输入非数值时系统提示“不能识别短语或关键字”也就是说如何限制下必须输入数值型数据？

文本框InputMask 属性='9999999'

楼上，如果要求只能输入英文字母怎么设置啊?

InputMask 属性
指定用户在一个控件中如何输入以及如何在一个控件中显示数据。设计和运行时可用。
 
Control.InputMask[ = cMask]
 

属性值
cMask
指定如何输入和显示数据。下面的表格显示了 cMask 的可能值。 cMask 说明
!
 将小写字母转换为大写字母。
 
#
 允许数字，空格，和符号，如减号 ( – )数据。
 
$
 在固定的位置上显示货币符号，符号由 SET CURRENCY 命令指定。
 
$$
 显示位置浮动的货币符号，在微调器和文本框中其位置在靠近数字的地方。
 
,
 显示当前 Windows 控制面板中区域和语言选项中设置的数字分组，或者分隔符，标记符。
 
.
 显示当前由 SET POINT 命令设置的小数点符号  (默认为句号 (.))
 
9
 允许数字和符号数据。
 
A
 只允许字母数据。
 
H
 放置在指定的位置输入非十六进制的符号。
 
L
 只允许逻辑型数据。
 
N
 只允许字母和数字数据。
 
U
 仅允许字母表中的字符以并将它们转换为大写 (A - Z)。
 
W
 仅允许字母表中的字符以并将它们转换为小写 (a - z)。
 
X
 只允许任何数据。
 
Y
 允许字母 Y，y，N，和 n 做为逻辑型数据的值。分别代表 .T. 和 .F.。
 
应用于：Column 对象 | ComboBox 控件 | Spinner 控件 | TextBox 控件

InputMask 不同于 Format 属性。Format 会影响整个输入字段，你可以混合使用几个 Format 码，但它们影响输入字段中的所有数据。

问题还是没解决，上面的程序是搜索程序，有二个combo1（是结构，列出表的结构）、COMBO2（是值 =、>,<)和一个TEXT。当我选择COMBO1的编号（也有文本输入，如选单位）时，在TEXT文本框输入非数字时，一点搜索就提示“不能识别短语或关键字”，如何用程序限定非数字输入呢，如果输入非数字提示“只能输入数字”如何写这个判断呢？
我不太懂，请朋友们给个实例。

[ 本帖最后由 qhjsrc 于 2011-2-14 17:43 编辑 ]

文本框设置InputMask 属性='9999999'（位数你按需要定），就只能输入数字字符了。像是字母字符是无法输入的。
另外出错时，到调试器去看看是哪条语句出错。是什么原因？

楼上的方法我试验了，既然在文本框inputmask属性里已经限制只能输入数字了，就没必要要"只能输入数字"的判断了。
还有如果出错的话可能跟版本有关系，我的vfp 9.0 sp1，论坛上下的