标题:还是关于vfp9.0
取消只看楼主
jiguanqiang8
Rank: 1
等 级:新手上路
帖 子:154
专家分:2
注 册:2013-2-7
结帖率:85.71%
已结贴  问题点数:20 回复次数:13 
还是关于vfp9.0
明明已经用select main 选中了主表,然后 append blank ,系统却提示选中的是另一个临时表,这时怎么回事,怎么返回我要的表啊
搜索更多相关主题的帖子: blank 
2013-02-15 12:13
jiguanqiang8
Rank: 1
等 级:新手上路
帖 子:154
专家分:2
注 册:2013-2-7
得分:0 
6.0用的没有问题,到9.0有时出些问题
2013-02-15 12:14
jiguanqiang8
Rank: 1
等 级:新手上路
帖 子:154
专家分:2
注 册:2013-2-7
得分:0 
我选的是主表,系统却指向临时表
2013-02-15 12:27
jiguanqiang8
Rank: 1
等 级:新手上路
帖 子:154
专家分:2
注 册:2013-2-7
得分:0 
应该没有,如果没有指定CURSOR别名,查询结果会显示出来,我先检查下
2013-02-15 12:35
jiguanqiang8
Rank: 1
等 级:新手上路
帖 子:154
专家分:2
注 册:2013-2-7
得分:0 
程序代码:
thisform.lockscreen=.t.
select main
    select max(bianhao) as maxbianhao1 from main into cursor yy
    maxbianhao=maxbianhao1

 if thisform.pf.page2.text1.value=""
    select main
    maxjilu=maxbianhao

else
    select main
     select max(bianhao) as maxbianhao2,shenhe from main where 罐号=alltrim(thisform.pf.page2.text1.value) into cursor uu
     maxjilu=maxbianhao2
     maxshenhe=shenhe
     *calc max(bianhao) for 罐号=alltrim(thisform.pf.page2.text1.value) to maxjilu
     guanhao1=alltrim(thisform.pf.page2.text1.value)
     select youguan
     locate for 罐号=guanhao1
         mypinzhong=品种
     select main
    
endif

select main
mybian=bianhao
if  maxjilu=mybian and getnextmodified(0)=0 and nkeycode=24
           if thisform.pf.page2.text1.value=""   
               select main
               append blank   **这里开始出问题
            replace 日期 with date()
            replace bianhao with maxbianhao+1
        else 
             if maxshenhe=1
                select main
                append blank 
                replace 日期 with date()
                replace bianhao with maxbianhao+1
                replace 罐号 with guanhao1
                replace 品种 with mypinzhong
              else
                 messagebox("该罐的上一笔数据未审核,不能添加",0,"注意") 
               
              endif 
        endif
           
endif
thisform.lockscreen=.f.
2013-02-15 12:45
jiguanqiang8
Rank: 1
等 级:新手上路
帖 子:154
专家分:2
注 册:2013-2-7
得分:0 
我检查了下,没有和主表同名的CURSOR别名,是不是前面的CURSOR 别名yy和uu 引起的,但在6.0下运行得都很好
2013-02-15 12:50
jiguanqiang8
Rank: 1
等 级:新手上路
帖 子:154
专家分:2
注 册:2013-2-7
得分:0 
为什么在6.0就不出问题呢
2013-02-15 12:58
jiguanqiang8
Rank: 1
等 级:新手上路
帖 子:154
专家分:2
注 册:2013-2-7
得分:0 
我来试试
2013-02-15 13:00
jiguanqiang8
Rank: 1
等 级:新手上路
帖 子:154
专家分:2
注 册:2013-2-7
得分:0 
解决了,就是要在结尾加一句thisform.refresh,实际上程序正确执行了,已经添加了,在1区,但添加的结果没有刷新,再按键盘,结果跑到9区去了。加了thisform.refresh后,就没有这种情况了,真实奇怪。
2013-02-15 13:23
jiguanqiang8
Rank: 1
等 级:新手上路
帖 子:154
专家分:2
注 册:2013-2-7
得分:0 
thisform.refresh这句话其实开始有,是我觉得多余了,将他删除,才出现的,没有注意
2013-02-15 13:25



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




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

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