ng24574
ng24574
关注数: 1
粉丝数: 2
发帖数: 14
关注贴吧数: 9
求大神 自己做个刷题的软件，碰到问题求大神 &&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 &&---------------------关联数据结束------------------------
和平精英6王牌 巡查员资格 卖号
1
下一页
