| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 231 人关注过本帖
标题:vfp9.0 APPEND BLANK 不会更新列表
只看楼主 加入收藏
xiaruiok
Rank: 1
等 级:新手上路
帖 子: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就可以正常替换
搜索更多相关主题的帖子: BLANK 列表 APPEND vfp9.0 更新 
2020-06-29 09:03
wengjl
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:86
帖 子:1791
专家分:3196
注 册:2007-4-27
收藏
得分:0 
thisform.refresh

只求每天有一丁点儿的进步就可以了
2020-06-29 09:10
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:255
帖 子:7365
专家分:33066
注 册:2014-5-20
收藏
得分: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
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2020-4-26
收藏
得分:0 
回复 3楼 吹水佬
IF  .NOT. TABLEUPDATE(.T.)
    = MESSAGEBOX('更新不成功', "提醒")
    TABLEREVERT(.T.)
 ENDIF

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

小弟是第一次接触VFP,请大佬指点一二,谢谢
附件: 游客没有浏览附件的权限,请 登录注册
2020-06-29 14:11
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:255
帖 子:7365
专家分:33066
注 册:2014-5-20
收藏
得分:0 
没报错就是TABLEUPDATE返回真了
不会实时更新,是不是说没看到grid表格刷新。
2020-06-29 14:42
xiaruiok
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2020-4-26
收藏
得分:0 
回复 5楼 吹水佬
是的,用VFP8编译的就可以看到刷新,VFP9要把添加数据这个窗口关了才会刷新
2020-06-29 14:47
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:255
帖 子:7365
专家分:33066
注 册:2014-5-20
收藏
得分:0 
回复 6楼 xiaruiok
试试要刷新GRID时调用grid的SetFocus
2020-06-29 14:50
xiaruiok
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2020-4-26
收藏
得分:0 
回复 7楼 吹水佬
谢谢大佬,找到问题了,VFP9下面差一句代码,VFP8就不需要,有点坑人了。在9下面完整代码为:
程序代码:
IF  .NOT. TABLEUPDATE(.T.)
    = MESSAGEBOX('此批有相同的零件,更新不成功', "友情提醒")
    TABLEREVERT(.T.)

 ELSE
     TABLEREVERT(.F.)

 ENDIF
2020-06-29 15:01
快速回复:vfp9.0 APPEND BLANK 不会更新列表
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.052697 second(s), 8 queries.
Copyright©2004-2020, BCCN.NET, All Rights Reserved