根据表格内容：根据是否出售的表格信息，在单选按钮组中选择“已出售”，点击后面的“查询”按钮，表格内容就出现已出售信息的相关内容，在单选按钮组中选择“未出售”，点击后面的“查询”按钮，表格内容就出现未出售信息的相关内容。在单选按钮组中选择“全部”，点击后面的“查询”按钮，表格内容就出现全部信息。

SET FILTER TO

三个单选按钮组的值分别为1（已出售），2（未出售），3（全部），所以查询按键 应用分支查询命令进行记录的筛选显示，如：
do case
case thisform.OptionGroup1.value=1
select...
case thisform.OptionGroup1.value=2
select...
case thisform.OptionGroup1.value=3
select....
endcase

这个答案试过了，不能用，会出错
并且表格会变成空的

哈，会成空滴。那是因为grid1没有数据源啦。你在用select..查询到一个cursor游标里之后，设置thisform.grid1.RecordSource='临时表名'就可以啦，而且每一个case里都要这样设置一下才行呀。

噢，出错可能是没有设置Grid.RecordSourceType的属性所至，设Grid.RecordSourceType＝0

没那么复杂。


select yourtablename
do case
case thisform.OptionGroup1.value=1
set filter to 出售信息="已出售"
go top
case thisform.OptionGroup1.value=2
set filter to 出售信息="未出售"
go top
case thisform.OptionGroup1.value=3
set filter to
go top
endcase
thisform.refresh