數據庫讀寫，看看我有沒有問題

作者：開拓者 TB 來源：cxh99.com 發布時間：2013年08月02日

咨詢內容： 變量
string strkeyb;
string strkeys;

NumericSeries kb(1);
StringSeries  strkb;

NumericSeries ks(1);
StringSeries  strks;

Begin
//下面是數據庫讀的部分
NN=BarsSinceToday+1;
If(Date!=Date[1])
{
  kb=1;
  ks=1;
  strks = Text(ks);
  strkb = Text(kb);

} Else
{
  strKeyb = text(Date*100+NN);
  strkb=GetTBProfileString("Daykb",strKeyb);
  If(strkb != InvalidString)
{
strkb=GetTBProfileString("Daykb",strKeyb);
      kb=Value(strkb);
}Else
{
      strkb=strkb[1];
      kb=Value(strkb);
}

  strKeys = text(Date*100+NN);
  strks=GetTBProfileString("Dayks",strKeys);
  If(strks != InvalidString)
{
      strks=GetTBProfileString("Dayks",strKeys);
      ks=Value(strkb);
}Else
{
      strks=strks[1];
      ks=Value(strks);
}
}
PlotString("strks",strks,low);
PlotString("strkb",strkb,high);

......................

//下面是數據庫寫的部分
If(marketposition<1)
{
If(CCC&&kb<=n)
  {
      Buy(myvolume,Max(Open,upperband));
   kb=kb+1;
   strkb=Text(kb);
   strKeyb = text(Date*100+NN);
      SetTBProfileString("Daykb",strKeyb,strkb);
   Return;
  }
}
If(marketposition>-1)
{
If(DDD&&ks<=n)
  {
      SellShort(myvolume,Min(Open,lowerband));
      ks=ks+1;
   strks = Text(ks);
   strKeys = text(Date*100+NN);
   SetTBProfileString("Dayks",strKeys,strks);
       Return;

  }
}

End
TB技術人員： 我的思路，在日內交易中控制開倉，假如，同一個模型做了6個品種，在工作區打開了6個圖標，當某個品種，率先開倉，后續品種在相同方向的開倉信號都給過濾掉。
TB客服： 怎么不回復
網友回復： 怎么不回復