Question

VFP 查询记录，并在GRIP表中显示出来~

假设有一个表单，上面有一个COMBO1为查询条件，COMMAND1为“查询”控件，另有一个GRIP表格，显示序号、设备编号、设备规模、使用状况等字段，要求点击“查询”控件，按设备规模、使用状况为关条件进行查询，查询结果在GRIP表中显示出来（查询之前表中有完整内容，查询后只显示符合条件的内容）。以使用状况为例，COMBO1里面包含“正在使用”、“停用”、“维修中”这几个内容。
我的神~~你真是太神了。。我试试。。。

Answer 1

将COMBO1的rowsourcetype属性设为1（值)，GRID1的RECORDSOURCETYPE属性设为4（SQL说明），不要加载数据环境，不要使用表格生成器。
FORM1.INNT:
THISFORM.COMBO1.ADDITEM('正在使用')
THISFORM.COMBO1.ADDITEM('停用')
THISFORM.COMBO1.ADDITEM('维修中')
AA="SELECT 序号,设备编号,设备规模,使用状况 FROM 设备表 ;
INTO CURSOU JZPZ"
THISFORM.GRID1.READONLY=.T.
THISFORM.GRID1.recordsource='&AA'
WITH THISFORM.GRID1
.COLUMNCOUNT=4 && 4列
.COLUMN1.WIDTH=180
.COLUMN2.WIDTH=80
.COLUMN3.WIDTH=80
.COLUMN4.WIDTH=80
.COLUMN1.HEADER1.CAPTION='序号'
.COLUMN2.HEADER1.CAPTION='设备编号'
.COLUMN3.HEADER1.CAPTION='设备规模'
.COLUMN4.HEADER1.CAPTION='使用状况'
.COLUMN1.controlsource='jzpz.序号'
.COLUMN2.controlsource='jzpz.设备编号'
.COLUMN3.controlsource='jzpz.设备规模'
.COLUMN4.controlsource='jzpz.使用状况'
endwith

COMMAND1.CLICK:
if not empty(THISFORM.COMBO1.VALUE)
AA="SELECT 序号,设备编号,设备规模,使用状况 FROM 设备表 ;
WHERE 使用状况="+"'"+ALLT(THISFORM.COMBO1.VALUE)+"'"+;
"INTO CURSOU JZPZ"
THISFORM.GRID1.recordsource='&AA'
WITH THISFORM.GRID1
.COLUMNCOUNT=4 && 4列
.COLUMN1.WIDTH=180
.COLUMN2.WIDTH=80
.COLUMN3.WIDTH=80
.COLUMN4.WIDTH=80
.COLUMN1.HEADER1.CAPTION='序号'
.COLUMN2.HEADER1.CAPTION='设备编号'
.COLUMN3.HEADER1.CAPTION='设备规模'
.COLUMN4.HEADER1.CAPTION='使用状况'
.COLUMN1.controlsource='jzpz.序号'
.COLUMN2.controlsource='jzpz.设备编号'
.COLUMN3.controlsource='jzpz.设备规模'
.COLUMN4.controlsource='jzpz.使用状况'
endwith
thisform.grid1.refresh
else
messagebox('请选择设备使用状况！',0)
endif