| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 633 人关注过本帖
标题:求助:我的程序差在哪里了?
只看楼主 加入收藏
baotashan
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2005-8-22
收藏
 问题点数:0 回复次数:4 
求助:我的程序差在哪里了?
今天编的一个小程序, 如下 :
select jhxx
set filt to year(进货时间)=nf .and. month(进货时间)=yf .and. 进货数量#0
go top
do while .not.eof()
  select kc_da
    seek jhxx.商品编号
  if eof()
    appe blan
    repl 商品编号 with jhxx.商品编号
  endif
  repl rk&yfc with rk&yfc+jhxx.进货数量
  sele jhxx
  skip
ENDDO

执行后就是死循环,请各位教我,应该修改哪里啊?
搜索更多相关主题的帖子: 进货 
2005-08-22 17:47
tzhtang
Rank: 1
等 级:新手上路
帖 子:888
专家分:0
注 册:2004-8-30
收藏
得分:0 
select kc_da
    seek jhxx.商品编号
 **** if eof()        *************
    appe blan
    repl 商品编号 with jhxx.商品编号
  endif

***********
seek 得出的结果判断是用:Found()   或 !found()
loca     得出的结果判断是用:eof()        或 !eof()

2005-08-23 10:48
baotashan
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2005-8-22
收藏
得分:0 
不是这样的吧:
如果 SEEK 找到了与索引关键字相匹配的记录,则 RECNO( ) 返回匹配记录的记录号;FOUND( ) 返回“真”(.T.);EOF( ) 返回“假”(.F.)。
如果找不到相匹配的关键字,则 RECNO( ) 将表中记录的个数加 1,然后返回;FOUND( ) 返回“假”(.F.);EOF( ) 返回“真”(.T.)。
2005-08-23 14:47
baotashan
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2005-8-22
收藏
得分:0 
不是这样的吧:
如果 SEEK 找到了与索引关键字相匹配的记录,则 RECNO( ) 返回匹配记录的记录号;FOUND( ) 返回“真”(.T.);EOF( ) 返回“假”(.F.)。
如果找不到相匹配的关键字,则 RECNO( ) 将表中记录的个数加 1,然后返回;FOUND( ) 返回“假”(.F.);EOF( ) 返回“真”(.T.)。
2005-08-23 14:50
fown
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:58
帖 子:1229
专家分:171
注 册:2005-5-26
收藏
得分:0 
你不就是想在保存的时候找到如果没有这个记录就增加吗?用二楼的方法正确,没见过象你这查找记录的,一般情况下象你用的这种情况一种是用LISTVIEW,还有的时候用大纲控件的时候用数据库做为内容的时候才会用到你用的方法

有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
2005-08-24 19:09
快速回复:求助:我的程序差在哪里了?
数据加载中...
 
   



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

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