*--表单上增加一个'查询'按钮(COMMADN1),GRID1,GRID2
COMMAND1.CLICK
SELECT * FROM TABNAME WHERE BZ=.T. INTO CURSOR TEMP
WITH THISFORM.GRID2
.COLUMNCOUNT=FCOUNT("TEMP")
.RECORDSOURCE="TEMP"
FOR I=1 TO .COLUMNCOUNT
.COLUMNS(I).WIDTH=75
.COLUMNS(I).HEADER1.CAPTION=FIELD(I,"TEMP")
ENDFOR
.REFRESH
ENDWITH