主题：后台程序重复开仓问题如何解决

OPENO:=DYNAINFO(4);pl:=ref(l,1);

kd1:=ref(c>openo,1);

thold:=ref(tholding,1);

kdc:=TSUBMIT(1);//开多

if kd1 and r1>1  and kdc=0 then
begin
 tbuy(pl<=pc and thold=0 and tholding=0,1,lmt,min(o+dw,pc-dw));
 tbuy(tholding<2 and thold<2,1,lmt,min(o+dw,pc-3*dw));
end

这是最大开2手的后台程序写法，可是总是会开出来超过2手的仓位，好像是识别不了持仓，实盘也试过，还是不行，怎么解决啊，急....