| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 628 人关注过本帖
标题:江湖告急 ,请指点
只看楼主 加入收藏
ilovebeauty
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2005-12-11
收藏
 问题点数:0 回复次数:6 
江湖告急 ,请指点

我的表中有8条记录如下:共26个字段,首先我将其保存在一个数组中K(8,26),我想在每条记录第21个记录是1而后4个记录是0,而且前面的20条记录中相邻的0的个数小于3个的条件下显示第26个记录,即

FOR a=1to 8
IF k(a,21)=1 AND k(a,22)=0 AND k(a,23)=0 AND k(a,24)=0 AND k(a,25)=0
FOR b=4to 21
IF NOT (k(a,b)=1 AND k(a,b-1)=0 AND k(a,b-2)=0 AND k(a,b-3)=0)
?k(a,26)
ENDIF
endf
ENDIF
endf

0 1 0 0 0 0 1 0 0 0 1 0 0 1 1 1 1 0 0 0 1 0 0 0 0 1
1 0 1 0 0 0 1 0 1 1 0 0 1 0 1 0 0 0 1 0 0 1 0 1 0 1
0 0 1 0 0 1 0 0 1 0 0 1 0 0 1 1 0 1 0 1 1 0 0 0 0 2
1 1 0 0 0 1 1 0 1 0 1 0 1 1 0 1 0 1 1 0 1 0 0 0 0 3
0 0 1 1 0 0 0 0 0 1 0 0 0 1 1 0 0 0 0 0 0 1 0 1 1 1
0 0 0 0 0 0 0 1 0 0 1 1 0 1 0 0 1 0 0 1 0 0 0 0 1 3

但显示的结果却不是要得到的,第二个条件好像没有用到,请指教!!

搜索更多相关主题的帖子: 江湖 告急 
2006-06-19 10:16
blueblood
Rank: 2
等 级:新手上路
威 望:4
帖 子:135
专家分:0
注 册:2006-4-2
收藏
得分:0 

楼主的问题问得很不清楚,“字段”与“记录”很乱!

2006-06-19 10:50
blueblood
Rank: 2
等 级:新手上路
威 望:4
帖 子:135
专家分:0
注 册:2006-4-2
收藏
得分:0 

FOR a=1to 8
IF k(a,21)=1 AND k(a,22)=0 AND k(a,23)=0 AND k(a,24)=0 AND k(a,25)=0
FOR b=3to 21
IF NOT (k(a,b)=0 AND k(a,b-1)=0 AND k(a,b-2)=0)
?k(a,26)
ENDIF
endf
ENDIF
endf

2006-06-19 10:55
ilovebeauty
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2005-12-11
收藏
得分:0 
回二楼,Sorry ,应该是6条记录,我是想显示每条记录中的第26个数据,条件是:每条记录的第22到第25个数据为0,第21个数据为1,而且前面的20个数据中相邻的0 的个数小于4个
2006-06-19 11:44
中国龙王
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:484
专家分:283
注 册:2006-5-17
收藏
得分:0 
你先调整语法吧,怎么全都用ENDIF而没见ENDFOR

不要为了打发无聊而做无聊的事!不要在虚幻的世界里做虚幻的事!
2006-06-19 13:19
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
看看这个吧,我都晕了.
FOR A=1 TO 8
OK=.T.
IF K(A,21)=1 AND K(A,22)=0 AND K(A,23)=0 AND K(A,24)=0 AND K(A,25)=0
FOR B=1 TO 18
K1=B+1
K2=IIF(K(A,B)=1,0,1)
DO WHILE K(A,K1)=0
K2=K2+1
K1=K1+1
ENDDO
IF K2>3
OK=.F.
EXIT
ENDIF
B=K1
ENDFOR
ELSE
OK=.F.
ENDIF
IF OK
?A,K(A,26)
ENDIF
ENDFOR

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-06-19 22:25
blueblood
Rank: 2
等 级:新手上路
威 望:4
帖 子:135
专家分:0
注 册:2006-4-2
收藏
得分:0 
FOR a=1 to 6
IF k(a,21)=1 AND k(a,22)=0 AND k(a,23)=0 AND k(a,24)=0 AND k(a,25)=0
FOR b=4 to 21
IF NOT (k(a,b)=0 AND k(a,b-1)=0 AND k(a,b-2)=0 and k(a,b-3)=0)
?k(a,26)
exit
ENDIF
endf
ENDIF
endf
2006-06-20 09:00
快速回复:江湖告急 ,请指点
数据加载中...
 
   



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

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