求大神

自己做个刷题的软件，碰到问题求大神
&&messagebox(ThisForm.List1.list(ThisForm.List1.listindex))
wjm="E:\学习题库\"+ThisForm.List1.list(ThisForm.List1.listindex)
&&MESSAGEBOX(wjm)
CLOSE ALL &&关闭所有DBF
USE "E:\学习题库\"+ThisForm.List1.list(ThisForm.List1.listindex) &&打开指定DBF
sjm=STRTRAN(ThisForm.List1.list(ThisForm.List1.listindex),"DBF","")
&&MESSAGEBOX(sjm)
&&MESSAGEBOX(sjm+"总序")
thisform.数据库名称.caption="E:\学习题库\"+ThisForm.List1.list(ThisForm.List1.listindex)
&&---------------------关联------------------------
thisform.总序1.CONTROLSOURCE=sjm+"总序"
MESSAGEBOX(thisform.总序1.CONTROLSOURCE)
thisform.题型1.CONTROLSOURCE=sjm+"题型"
thisform.章节1.CONTROLSOURCE=sjm+"章节"
thisform.题目1.CONTROLSOURCE=sjm+"题目"
thisform.选项a1.CONTROLSOURCE=sjm+"选项a"
MESSAGEBOX(thisform.选项a1.CONTROLSOURCE)
thisform.选项b1.CONTROLSOURCE=sjm+"选项b"
thisform.选项c1.CONTROLSOURCE=sjm+"选项c"
thisform.选项d1.CONTROLSOURCE=sjm+"选项d"
thisform.选项e1.CONTROLSOURCE=sjm+"选项e"
thisform.答案1.CONTROLSOURCE=sjm+"答案"
thisform.状态1.CONTROLSOURCE=sjm+"状态"
thisform.学习次数1.CONTROLSOURCE=sjm+"学习次数"
thisform.错误次数1.CONTROLSOURCE=sjm+"错误次数"
ThisForm.refresh
&&---------------------关联数据结束------------------------