2,749
社区成员
发帖
与我相关
我的任务
分享CFIELD=[]
FOR I=1 TO 10 && 假如有10个字段
CHECK=[CHECK]+TRANSFORM(I)
CFIELD=CFIELD+IIF(THISFORM.&CHECK..VALUE=1,THISFORM.&CHECK..CAPTION+[,],[])
ENDFOR
CFIELD=LEFT(CFIELD,LEN(CFIELD)-1)
CFIELD=[SELECT ]+CFIELD+[ FROM T]
EXECSCRIPT(CFIELD)