| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1081 人关注过本帖
标题:程序内层for循环第二次,在skip命令上报错,提示已到文件尾,此文件有两千多 ...
只看楼主 加入收藏
yuq
Rank: 1
等 级:新手上路
帖 子:46
专家分:0
注 册:2022-3-7
结帖率:68.75%
收藏
已结贴  问题点数:20 回复次数:9 
程序内层for循环第二次,在skip命令上报错,提示已到文件尾,此文件有两千多条记录
d表
jbdm    zydm    cnt
1         01        48
2         01        46
3         01       1006
3         02       1418
程序如下
go 1
f=1
n=1
for x=1 TO 86
    select sum(cnt) as y from d where recno()<=f into cursor rs
    g=rs.y
    a1=padl(alltrim(str(x)),3,'0')
    for y=1 TO 30
        a2=padl(alltrim(str(y)),2,'0')
        update e set kch=a1,zwh=a2 where recno()=n
        n=n+1
        skip
        if n>g
            f=f+1
            exit
        endif
    endfor
endfor

[此贴子已经被作者于2022-3-9 15:25编辑过]

搜索更多相关主题的帖子: 记录 for 内层 文件 提示 
2022-03-09 15:06
yuq
Rank: 1
等 级:新手上路
帖 子:46
专家分:0
注 册:2022-3-7
收藏
得分:0 
请各位大牛指点一下!
2022-03-09 15:07
laowan001
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:66
帖 子:1088
专家分:2682
注 册:2015-12-30
收藏
得分:10 
整个程序中没有指定工作区,skip的时候不知道当前是哪个表,也许你在程序最开始打开了表,在一层循环中已经创建了临时表rs,工作区估计已经改变了
在skip之前指定工作区试试

[此贴子已经被作者于2022-3-9 15:28编辑过]

2022-03-09 15:26
laowan001
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:66
帖 子:1088
专家分:2682
注 册:2015-12-30
收藏
得分:0 
另外,表名和字段名尽量不要使用单个字母命名!!!
2022-03-09 15:27
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:5 
if !eof("表")
  skip in "表"
endif
2022-03-09 15:31
yuq
Rank: 1
等 级:新手上路
帖 子:46
专家分:0
注 册:2022-3-7
收藏
得分:0 
回复 3楼 laowan001
请问应该如何指定工作区呢?
2022-03-09 15:38
yuq
Rank: 1
等 级:新手上路
帖 子:46
专家分:0
注 册:2022-3-7
收藏
得分:0 
回复 5楼 吹水佬
大佬,是这样吗?
go 1
f=1
n=1
for x=1 TO 86
    select sum(cnt) as y from d where recno()<=f into cursor rs
    g=rs.y
    a1=padl(alltrim(str(x)),3,'0')
    for y=1 TO 30
        a2=padl(alltrim(str(y)),2,'0')
        update fpkc set kch=a1,zwh=a2 where recno()=n
        n=n+1
        if !eof("fpkc")
              skip in "fpkc"
        endif
        if n>g
            f=f+1
            exit
        endif
    endfor
endfor
2022-03-09 15:38
laowan001
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:66
帖 子:1088
专家分:2682
注 册:2015-12-30
收藏
得分:5 
以下是引用yuq在2022-3-9 15:38:05的发言:

请问应该如何指定工作区呢?

select fpkc
skip
2022-03-09 15:40
yuq
Rank: 1
等 级:新手上路
帖 子:46
专家分:0
注 册:2022-3-7
收藏
得分:0 
回复 8楼 laowan001
问题解决,感谢大佬!
2022-03-09 16:03
mrmack
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2022-3-9
收藏
得分:0 
感谢分享
2022-03-09 17:56
快速回复:程序内层for循环第二次,在skip命令上报错,提示已到文件尾,此文件有 ...
数据加载中...
 
   



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

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