VFP9在WIN10中，使用APPEND BLANK偶发性出现“无效的寻找偏移量”错误，是兼容性问题吗？ - 编程论坛

#2

吹水佬2021-09-21 16:25

VFP的HELP也无明确说明
无效的寻找偏移量 (错误 1103)
记录下最近使用 Visual FoxPro 时的操作，然后与 Microsoft 产品支持机构联系。

或者找出抛出异常的语句或模块，变通一下改用其他算法来处理，如先将某些对象属性值存放到内存变量，再去使用这个内存变量。

#3

xuminxz2021-09-21 20:18

repl 所属组 with ALLTRIM(thisform.pageframe1.) 业务类型 with ALLTRIM(thisform.pageframe1.)..........
可能是这有问题，能完整地把这句复制上来吗？

#4

hicgj2021-09-21 21:50

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都没有运行就退出了。

#5

sdta2021-09-21 23:39

以下是引用hicgj在2021-9-21 21:50:40的发言：

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都没有运行就退出了。

补齐参数间的逗号","

#6

xuminxz2021-09-22 09:27

软件是网络版吗？建议用其它数据库做为后台，VFP的锁定机制本身就不完善。另外，代码中如果没有敏感数据，提问时最好将相关代码段，原样复制上来

。

#7

laowan0012021-09-22 14:29

APPEND BLANK如果成功了，那个lock()还有必要吗？我是没这么用过
可以考虑用 insert into 数据表试试

#8

hicgj2021-09-22 17:40

回复 6楼 xuminxz

是局域网版，不会用其他后台数据库管理，工作很忙，没时间学习。但除了这个问题，用现有的共享数据库也是很好用的，胜在简单。

#9

hicgj2021-09-22 17:42

以下是引用sdta在2021-9-21 23:39:59的发言：

补齐参数间的逗号","

这个需要补逗号的吗？我一直以来都是不用逗号的，晕。应该不是必须的吧