主题：连续合约对应的合约代码可以查到么？

那图表程序就不可以用了,只能用在后台了?

其实只要象STKLABEL那样登记一下连续合约对应的主力合约代码,那我们就省事多了.

合约代码:=EXTGBDATA(代码);
合约头:=STRLEFT(STKLABEL,2);
tVOL:=STKINDI(合约代码,'vol.VOLUME',0,1);
IF tVOL<>VOL AND CYC=1 THEN BEGIN //如果成交量不同代表换主力合约了，找新的主力合约代码
   tVOL:=STKINDI(STRCAT(合约头,'01'),'vol.VOLUME',0,1);
   if tVOL=VOL THEN 合约代码:=STRCAT(合约头,'01');
   tVOL:=STKINDI(STRCAT(合约头,'02'),'vol.VOLUME',0,1);
   if tVOL=VOL THEN 合约代码:=STRCAT(合约头,'02');
   tVOL:=STKINDI(STRCAT(合约头,'03'),'vol.VOLUME',0,1);
   if tVOL=VOL THEN 合约代码:=STRCAT(合约头,'03');  
   tVOL:=STKINDI(STRCAT(合约头,'04'),'vol.VOLUME',0,1);
   if tVOL=VOL THEN 合约代码:=STRCAT(合约头,'04');
   tVOL:=STKINDI(STRCAT(合约头,'05'),'vol.VOLUME',0,1);
   if tVOL=VOL THEN 合约代码:=STRCAT(合约头,'05');
   tVOL:=STKINDI(STRCAT(合约头,'06'),'vol.VOLUME',0,1);
   if tVOL=VOL THEN 合约代码:=STRCAT(合约头,'06');
   tVOL:=STKINDI(STRCAT(合约头,'07'),'vol.VOLUME',0,1);
   if tVOL=VOL THEN 合约代码:=STRCAT(合约头,'07');
   tVOL:=STKINDI(STRCAT(合约头,'08'),'vol.VOLUME',0,1);
   if tVOL=VOL THEN 合约代码:=STRCAT(合约头,'08');
   tVOL:=STKINDI(STRCAT(合约头,'09'),'vol.VOLUME',0,1);
   if tVOL=VOL THEN 合约代码:=STRCAT(合约头,'09');  
   tVOL:=STKINDI(STRCAT(合约头,'10'),'vol.VOLUME',0,1);
   if tVOL=VOL THEN 合约代码:=STRCAT(合约头,'10');
   tVOL:=STKINDI(STRCAT(合约头,'11'),'vol.VOLUME',0,1);
   if tVOL=VOL THEN 合约代码:=STRCAT(合约头,'11');     
   tVOL:=STKINDI(STRCAT(合约头,'12'),'vol.VOLUME',0,1);
   if tVOL=VOL THEN 合约代码:=STRCAT(合约头,'12');
   EXTGBDATASET(代码,合约代码);
END

 

这段代码有什么错误么?

怎么不行,请看看.谢谢!!

另外,请教一下在IF 里面可以用STKINI函数么?

因为以前用过好象有错的.