将COMBO1的rowsourcetype属性设为1(值),GRID1的RECORDSOURCETYPE属性设为4(SQL说明
636f7079e799bee5baa6e79fa5e9819331333238643664),不要加载数据环境,不要使用表格生成器。
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