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）查询时，在文本框中输入非数值时系统提示“不能识别短语或关键字”也就是说如何限制下必须输入数值型数据？

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

Select * from 人员信息表 where &CXTJ. into cursor 临时人员信息表
if RECCOUNT("临时人员信息表")=0
    messagebox("无此信息")
endif

当搜索的时候如果出现“无此信息”表格的内容就变成空的了。格表内容能不能返回搜索前的内容啊？

查询某个人，用Locat for 条件     就足够了，这样表格内容不会变成空的。

查询到符合条件的记录时，Found()为.T.

你这个用locate比较合理，但是如果仍按照你的思路，可以这样
Select * from 人员信息表 where &CXTJ. into cursor 临时人员信息表
if RECCOUNT("临时人员信息表")=0
    messagebox("无此信息")
else
  thisform.grid1.recordsource='临时人员信息表'
  thisform.grid1.backcolor=rgb(200,224,248)
endif