主题：这个VB程序怎么一键平不了所有仓呢

function YiJianPinCangAll(sAccount)
 dim i
 dim BuyHold
 dim BuyCost
 dim SellHold
 dim SellCost
 dim CurCode
 dim CurMarket
' msgbox "当前持仓数:"&Order.Holding2(sAccount)
 
 while ( Order.Holding2(Account))
  On Error resume Next
  HoldStr=""
 HoldingCount=Order.Holding2(sAccount)
  If HoldingCount>0 then
   For i=0 to HoldingCount-1
    Call Order.HoldingInfo2(i,BuyHolding,BuyCost,BuyTodayHolding,SellHolding,SellCost,SellTodayHolding,PNL,UseMargin,Code,Market,sAccount)
   ' CurCode=Code
  '  CurMarket=Market
    BuyHold=BuyHolding '持仓品种买入持仓总量
    SellHold=SellHolding '持仓品种卖出持仓总量
    HoldStr=HoldStr & CurCode
       if BuyHold>0 then
         HoldStr=HoldStr & "  多单:+" & BuyHold & "手"
        call Sell(1,abs(BuyHolding),0,0,Code,Market,sAccount,0) '平多

       end if
          if SellHold>0 then
            HoldStr=HoldStr & "  空单:-" & SellHold & "手"
          call  SellShort(1,abs(SellHolding),0,0,Code,Market,sAccount,0)

          end if 
    HoldStr=HoldStr & " ,"
   Next
   HoldStr=Left(HoldStr,len(HoldStr)-1) '去掉了尾部,号
  End If
 ' GetHoldStr=HoldStr
wend
 DayClose_Label_ZhangHuJieGuo.Caption= "当前品种"&HoldStr &"平仓后，当前持仓数:"&Order.Holding2(sAccount)
   
End function

一个品种都平不了仓

 

好象没反应一样

 

我就是按照上面的代码做的，就是多加了一个平仓语句，能读出帐户信息，但平不了仓，我是用按扭调用这个函数的

if BuyHold>0 then
         HoldStr=HoldStr & "  多单:+" & BuyHold & "手"
        call Sell(1,abs(BuyHolding),0,0,Code,Market,sAccount,0) '平多           平不了

       end if
          if SellHold>0 then
            HoldStr=HoldStr & "  空单:-" & SellHold & "手"
          call  SellShort(1,abs(SellHolding),0,0,Code,Market,sAccount,0)'平空      平不了

          end if 

 

我是正式标准版用户，模拟资金帐号,用VB开仓没问题，上面的平仓就平不了。

111111
666666

只有上面两行，其它几句都没有执行，怪事

问题就出在这个循环上 我的本意是想如果因为什么原因，平仓指令发出后，结果没平成，就再次发命令平仓，有仓的条件就是的 while (Order.Holding2(sAccount)>0)

结果造成死循环了，仓也没平

 

我把这个循环去掉，结果也平不了仓，我晕倒

是不是VB不支持平仓啊，但我开仓怎么没问题呢

我是1800元的标准版客户，模拟资金帐户

 
function YiJianKaiCangAll()
 
 if Order.IsAccount("804044") then
   ' msgbox "804044已登录"
   ' DayClose_Label_ShuLiang.Caption=Order.Holding2( )
    else
    msgbox "804044未登录"
    end if
OrderSnMax  =       Order.Buy(1,DayClose_TextBox_MaxNum.Text,   0 ,0  ,DayClose_Label_MaxCode.Caption,   DayClose_TextBox_MaxShiChang.Text,"",  0) '开多
OrderSnCiMax=       Order.Buy(1,DayClose_TextBox_CiMaxNum.Text, 0 ,0  ,DayClose_Label_CiMaxCode.Caption, DayClose_TextBox_CiMaxShiChang.Text,"",0) '开多
OrderSnCiMin=  Order.BuyShort(1,DayClose_TextBox_CiMinNum.Text, 0 ,0  ,DayClose_Label_CiMinCode.Caption, DayClose_TextBox_CiMinShiChang.Text,"",0) '开空
OrderSnMin  =  Order.BuyShort(1,DayClose_TextBox_MinNum.Text,   0 ,0  ,DayClose_Label_MinCode.Caption,   DayClose_TextBox_MinShiChang.Text,"",0)
end function

function YiJianPinCangAll(sAccount)
 dim i
 dim BuyHold
 dim BuyCost
 dim SellHold
 dim SellCost
 dim CurCode
 dim CurMarket
' msgbox "当前持仓数:"&Order.Holding2(sAccount)

Application.MsgOut "当前持仓数:"&Order.Holding2(sAccount)
 
' while (Order.Holding2(sAccount)>0)    '去掉循环，也平不了仓
  On Error resume Next
  HoldStr=""
 HoldingCount=Order.Holding2(sAccount)

Application.MsgOut "222222"
  If HoldingCount>0 then
   For i=0 to HoldingCount-1

    Application.MsgOut "33333循环开始"
    Call Order.HoldingInfo2(i,BuyHolding,BuyCost,BuyTodayHolding,SellHolding,SellCost,SellTodayHolding,PNL,UseMargin,Code,Market,sAccount)
   ' CurCode=Code
  '  CurMarket=Market
    BuyHold=BuyHolding '持仓品种买入持仓总量
    SellHold=SellHolding '持仓品种卖出持仓总量
    HoldStr=HoldStr & CurCode
       if BuyHold>0 then
         HoldStr=HoldStr & "  多单:+" & BuyHold & "手"
            call Sell(1,abs(BuyHolding),0,0,Code,Market,sAccount,0) '平多
'call Sell(1,3,0,0,"cu06",sq,sAccount,0) '平多   用这个固定的品种，也平不了，是不是不支持VB平仓啊
        Application.MsgOut "444444平多"
       end if
          if SellHold>0 then
            HoldStr=HoldStr & "  空单:-" & SellHold & "手"
      call  SellShort(1,abs(SellHolding),0,0,Code,Market,sAccount,0)

          Application.MsgOut "55555平空"

          end if 
    HoldStr=HoldStr & " ,"
   Next
   HoldStr=Left(HoldStr,len(HoldStr)-1) '去掉了尾部,号
  End If
 ' GetHoldStr=HoldStr
' wend
 DayClose_Label_ZhangHuJieGuo.Caption= "当前品种"&HoldStr &"平仓后，当前持仓数:"&Order.Holding2(sAccount)
  Application.MsgOut "666666"
End function

 

 

  

运行后结果

当前持仓数:4
222222
33333循环开始
55555平空
33333循环开始
55555平空
33333循环开始
444444平多
33333循环开始
444444平多
666666
再看仓位，一个都没平掉，我晕

把这个语句注释掉以后 On Error resume Next
  call Sell(1,abs(BuyHolding),0,0,Code,Market,sAccount,0) '平多
'call Sell(1,3,0,0,"cu06",sq,sAccount,0) '平多    这两个语句，立即报错，说是不能用调用错误，不能用括号什么的

call Order.Sell(1,abs(BuyHolding),0,0,Code,Market,sAccount,0) '平多
前面要加一个Order

我晕，打到原因了

 但要写成，如果平仓不成功，反复平仓，怎么写啊？也就是要加上循环语句