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

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

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

只看楼主

xiaruiok

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

楼主

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

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

wengjl

等　级：贵宾
威　望：108
帖　子：2175
专家分：3785
注　册：2007-4-27

第 2 楼

得分:0

thisform.refresh

只求每天有一丁点儿的进步就可以了

2020-06-29 09:10

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 3 楼

得分:0

以下是引用xiaruiok在2020-6-29 09:03:25的发言：

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 10:39

xiaruiok

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

第 4 楼

得分:0

回复 3楼吹水佬

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

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

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

2020-06-29 14:11

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 5 楼

得分:0

没报错就是TABLEUPDATE返回真了
不会实时更新，是不是说没看到grid表格刷新。

2020-06-29 14:42

xiaruiok

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

第 6 楼

得分:0

回复 5楼吹水佬

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

2020-06-29 14:47

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 7 楼

得分:0

回复 6楼 xiaruiok

试试要刷新GRID时调用grid的SetFocus

2020-06-29 14:50

xiaruiok

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

第 8 楼

得分: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