查看完整版本: 求助

求助

用下面公式做选股排序.每个版块应只有一个股票排序第一的.可通过排序每个股票都显示1.啥原因，请老师帮忙.如图：

BK:=STRLEFT(BLKNAME,STRFIND(BLKNAME,',',1)-1);//第一个板块
BKs:=STKCOUNT(Bk);
variable:DM[BKs]='';
for k=1 to BKs do  begin
   码:=STKFROMBLK(BK,k);
   Dm[k]:=STRRIGHT(码,6);
if BKs>=1 then p1:STKINDI(Dm[1],'P.p',0,-1);
if BKs>=2 then p2:STKINDI(Dm[2],'P.p',0,-1);
if BKs>=3 then p3:STKINDI(Dm[3],'P.p',0,-1);
if BKs>=4 then p4:STKINDI(Dm[4],'P.p',0,-1);
end;
zx:MIN(MIN(p1,p2),MIN(p3,p4)),Color40FF00,LINETHICK0;
zd:max(max(p1,p2),max(p3,p4)),ColorFFFF00,LINETHICK0;
xg:p3=zd;

[[i] 本帖最后由 qxz 于 2007-11-27 20:00 编辑 [/i]]

股票代码可能不能比较大小吧。

求助

求助
用下面公式做选股排序.每个版块应只有一个股票排序第一的.可通过排序每个股票都显示1.啥原因，请老师帮忙.如图：

BK:=STRLEFT(BLKNAME,STRFIND(BLKNAME,',',1)-1);//第一个板块
BKs:=STKCOUNT(Bk);
variable:DM[BKs]='';
for k=1 to BKs do  begin
   码:=STKFROMBLK(BK,k);
   Dm[k]:=STRRIGHT(码,6);
if BKs>=1 then p1:STKINDI(Dm[1],'P.p',0,-1);
if BKs>=2 then p2:STKINDI(Dm[2],'P.p',0,-1);
if BKs>=3 then p3:STKINDI(Dm[3],'P.p',0,-1);
if BKs>=4 then p4:STKINDI(Dm[4],'P.p',0,-1);
end;
zx:MIN(MIN(p1,p2),MIN(p3,p4)),Color40FF00,LINETHICK0;
zd:max(max(p1,p2),max(p3,p4)),ColorFFFF00,LINETHICK0;
xg:p3=zd;

xg:p3=zd;
永远都是成立的。所以都是1，当然也就不能排序了。

谢谢

[quote]原帖由 [i]joneslee[/i] 于 2007-11-28 18:39 发表 [url=http://bbs.fjfox.com/redirect.php?goto=findpost&pid=373878&ptid=42363][img]http://bbs.fjfox.com/images/common/back.gif[/img][/url]
xg:p3=zd;
永远都是成立的。所以都是1，当然也就不能排序了。 [/quote]
有办法解决.请帮忙.