vfp9.0 APPEND BLANK 不会更新列表 - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → vfp9.0 APPEND BLANK 不会更新列表

标题：vfp9.0 APPEND BLANK 不会更新列表

取消只看楼主

xiaruiok

等　级：新手上路
帖　子：4
专家分：0
注　册：2020-4-26

楼主

问题点数：0 回复次数：3

vfp9.0 APPEND BLANK 不会更新列表

程序代码：

SELECT istosm

 GOTO BOTTOM

 IF RECCOUNT()<>0
    jlhno = 次序+1

 ELSE
    jlhno = 0

 ENDIF

 APPEND BLANK 
REPLACE *** WITH thisform.txtpartno.value

为什么这段代码在VFP9.0下面执行后不会实时更新列表，在6.0和8.0下面会实时更新，如果APPEND BLANK换成APPEND就可以正常替换

2020-06-29 09:03

xiaruiok

等　级：新手上路
帖　子：4
专家分：0
注　册：2020-4-26

第 2 楼

得分:0

回复 3楼吹水佬

IF  .NOT. TABLEUPDATE(.T.)
    = MESSAGEBOX('更新不成功', "提醒")
    TABLEREVERT(.T.)
 ENDIF

是这段代码问题，VFP8下面正常，vfp9下面不正常也不报错。

小弟是第一次接触VFP,请大佬指点一二,谢谢

2020-06-29 14:11

xiaruiok

等　级：新手上路
帖　子：4
专家分：0
注　册：2020-4-26

第 3 楼

得分:0

回复 5楼吹水佬

是的，用VFP8编译的就可以看到刷新，VFP9要把添加数据这个窗口关了才会刷新

2020-06-29 14:47

xiaruiok

等　级：新手上路
帖　子：4
专家分：0
注　册：2020-4-26

第 4 楼

得分:0

回复 7楼吹水佬

谢谢大佬，找到问题了，VFP9下面差一句代码，VFP8就不需要，有点坑人了。在9下面完整代码为：

程序代码：

IF  .NOT. TABLEUPDATE(.T.)
    = MESSAGEBOX('此批有相同的零件,更新不成功', "友情提醒")
    TABLEREVERT(.T.)

 ELSE
     TABLEREVERT(.F.)

 ENDIF

2020-06-29 15:01

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-502315-1-1.html