lcFieldList='学号,姓名'
If ThisForm.Check1.Value=1
lcFieldList=lcFieldList+',语文'
EndIf
If ThisForm.Check2.Value=1
lcFieldList=lcFieldList+',数学'
EndIf
If ThisForm.Check3.Value=1
lcFieldList=lcFieldList+',英语'
EndIf
If ThisForm.Check4.Value=1
lcFieldList=lcFieldList+',物理'
EndIf
Select &lcFieldList From TableName Into Cursor Temp
*将Temp表内容绑定到Grid控件