數據庫讀寫，看看我有沒有問題
作者：開拓者 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客服：
怎么不回復
- 網友回復：
怎么不回復
打印本文
關閉窗口