标题：判断是否有指定方向的开平仓委托单的代码

Sub HasSubmitOrder(sAction,sKaiping)   '是否有指定的委托单
 dim OrderID
 dim ConSign
 dim Filled
 dim Remaining
 dim Action
 dim OrderType
 dim LmtPrice
 dim Account
 dim Kaiping
 
 Call Order.OrderInfoByCode2(VBA_Code,VBA_Market, OrderID, ConSign, Filled, Remaining, Action, OrderType, LmtPrice, Account, Kaiping)
 If Account=AccountCode And Action=sAction And Kaiping=sKaiping then  '有指定方向的委托单
      HasWeiTuo=1
 Else
      HasWeiTuo=0 
 End if
End Sub

参数说明：

sAction-买卖方向  0买 1卖

sKaiping-开还是平 0开 1平

返回值说明：

HasWeiTuo 返回是否有相应的委托单 1为有，0为无   HasWeiTuo应设置public型变量