你用的是 VFP6.0?
那就改改
EXECSCRIPT(cSql)
改为,宏
&cSql

请大家注意：楼主使用的是VFP6,而不是VFP9

查询按钮代码：
cStr="学号"
FOR I=2 TO FCOUNT("成绩")
    ch="CHECK"+TRANSFORM(I-1)
    cStr=cStr+IIF(THISFORM.&Ch..VALUE=1,","+THISFORM.&Ch..CAPTION,"")
ENDFOR
SELECT &cStr From 成绩 INTO CURSOR CX
WITH THISFORM.GRID1
    .COLUMNCOUNT=-1
    .RECORDSOURCE="CX"
    .REFRESH
ENDWITH

** test.prg
CREATE CURSOR tt (f1 I, f2 I, f3 I)
FOR i=1 TO 100
    INSERT INTO tt VALUES (i, i*2, i*3)
ENDFOR
of = CREATEOBJECT("form1")
of.show(1)

DEFINE CLASS form1 as Form
    ADD OBJECT check1 as checkbox WITH top=10,left=10,width=50,caption="f1"
    ADD OBJECT check2 as checkbox WITH top=10,left=60,width=50,caption="f2"
    ADD OBJECT check3 as checkbox WITH top=10,left=110,width=50,caption="f3"
    ADD OBJECT cmd1 as commandbutton WITH top=10,left=160,caption="查询"
    ADD OBJECT grid1 as grid WITH top=40,left=10,recordsourcetype=4,;
        recordsource="SELECT * FROM tt INTO CURSOR tt_tmp"

    PROCEDURE cmd1.click
        LOCAL rs
        rs = ""
        IF thisform.check1.value==1
            rs = rs + thisform.check1.caption + ","
        ENDIF
        IF thisform.check2.value==1
            rs = rs + thisform.check2.caption + ","
        ENDIF
        IF thisform.check3.value==1
            rs = rs + thisform.check3.caption + ","
        ENDIF
        rs = IIF(EMPTY(rs), "*", RTRIM(rs,","))
        rs = "SELECT " + rs + " FROM tt INTO CURSOR tt_tmp"
        thisform.grid1.recordsource = rs
    ENDPROC
ENDDEFINE

是吧EXECSCRIPT(cSql)改为EXECSCRIPT(&cSql)吗？
可是vfp6好像没有EXECSCRIPT()函数

 

把这行，
EXECSCRIPT(cSql)
改为
&cSql

看了一下VFP6帮助，RTRIM()不兼容。
这句改为：
rs = IIF(EMPTY(rs), "*", LEFT(rs,RAT(",",rs)-1))

可以说，大多数的朋友，都在用VF9。
你NanT还在用VF6？少数了。

只能是你跟上来，不可能叫多数人
顾及到你的VF6啊。

改掉后又出现了这个

挂起的时候 指向了这一行