Question

vfp代码求助：单选按钮组，以及查询按钮的代码

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

Answer 1

o1=thisform.optiongroup1.value
do case
case o1=1
sele * from 表名 where 出售信息="已出售" into cursor "temp"
case o1=2
sele * from 表名 where 出售信息="未出售" into cursor "temp"
case o1=3
sele * from 表名 into cursor "temp"
endcase
thisform.grid1.recordsource="temp"