cfields=""
FOR EACH chk as CheckBox IN thisform.Controls
    IF chk.Value=1 && or .t.
        cfields=cfields-chk.caption-","
    ENDIF
ENDFOR
cfields=IIF(RIGHT(cfields,1)=",",left(cfields,LEN(cfields)-1),cfields)

? cfields    &&这个是你要的字段列表

剩下的事情，就没什么好说的了

楼主啊，挣到钱了，来请大家撮一顿吧

谢谢大家 ，我做好了，哈哈哈

这个是我的毕业论文，在做一个系统。