repl 所属组 with ALLTRIM(thisform.pageframe1.) 业务类型 with ALLTRIM(thisform.pageframe1.) 题目 with ALLTRIM(thisform.pageframe1.page5.edit1.value) 选项A with ALLTRIM(thisform.pageframe1.page5.edit2.value) 选项B with ALLTRIM(thisform.pageframe1.page5.edit3.value) ;
选项C with ALLTRIM(thisform.pageframe1.page5.edit4.value) 选项D with ALLTRIM(thisform.pageframe1.page5.edit5.value) 选项E with ALLTRIM(thisform.pageframe1.page5.edit6.value) 录入员 with pname 录入日期 with DATE() 灵活题 WITH thisform.pageframe1.page5.check6.value
IF thisform.pageframe1.page5.optiongroup1.option1.value=1
REPLACE 题型 with "单选题" 识别码 WITH ALLTRIM(STR(month(DATE())))+ALLTRIM(STR(DAY(DATE())))+LEFT(TIME(),2)+SUBSTR(TIME(),4,2)+RIGHT(TIME(),2) 答案 with ALLTRIM(thisform.pageframe1.) 多选答案a WITH 0 多选答案b WITH 0 多选答案c WITH 0 多选答案d WITH 0 多选答案e WITH 0
ELSE
REPLACE 题型 with "多选题" 识别码 WITH ALLTRIM(STR(month(DATE())))+ALLTRIM(STR(DAY(DATE())))+LEFT(TIME(),2)+SUBSTR(TIME(),4,2)+RIGHT(TIME(),2) 多选答案a WITH thisform.pageframe1.page5.check1.value 多选答案b WITH thisform.pageframe1.page5.check2.value 多选答案c WITH thisform.pageframe1.page5.check3.value 多选答案d WITH thisform.pageframe1.page5.check4.value 多选答案e WITH thisform.pageframe1.page5.check5.value 答案 WITH ""
endif
这是完整的LOCK和UNLOCK之间的代码,主要用APPEND BLANK在尾部新增一记录后保存题目和答案的,但我觉得这里没有问题,因为如果有问题的话不会保存N次成功的,然后就偶然会出现一次错误(但仍会在DBF表的后面生成一条空记录)。我也试过在APPEND BLANK后面加了一个测试MESSAGEBOX("测试"),发现如果出错后,后面的测试是不会被运行到,包括后面的REPL都没有运行就退出了。