为一个表单添加一个视图（已经为某个字段设为查询字段）数据源。通过拖拽在表单上建立一个Grid .并建立一个TEXT和一个COMMAND。在TEXT中输入查询条件，通过点击COMMAND将查询到的数据显示在GRID中。代码如下：

IF NOT EMPTY(thisform.text1.Value)
whichid=thisform.text1.Value
SELECT st
=REQUERY()
ELSE
=MESSAGEBOX("wrong!!!!!",0+48,"caution")
RETURN
ENDIF

查询结果没什么问题。

如何在未输入条件时，将所有数据显示在GRID中？？？

在下在这谢谢大家了！

你用的视图设计器吧,我没用过,不太清楚,我都是用命令的

何必使用视图，用程序的方法不是更好吗?
whichid=thisform.text1.Value
IF NOT EMPTY(whichid)
SELECT st
SET FILTER TO 某字段=whichid
GO TOP
ELSE
=MESSAGEBOX("wrong!!!!!",0+48,"caution")
RETURN
ENDIF
THISFORM.REFRESH