VB下的单,OrderStatusEx2没反应 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

是俺搞错了应该为
Sub Order_OrderStatusEx2(OrderID, Status, Filled, Remaining, Price, IndexCode1, Market1, OrderType, Aspect, Kaiping, Account,AccountType)
感谢King的耐心。

以下是引用fly在2011-4-8 10:10:29的发言：

Sub OrderStatusEx2(OrderID, Status, Filled, Remaining, Price, IndexCode1, Market1, OrderType, Aspect, Kaiping, Account,AccountType)
'wg_rst.Open "select * from wg_order",wg_cnn,adOpenKeyset,adLockOptimistic
msgbox time&" ao"
wg_rst.Open "select * from wg_order",wg_cnn,1,3
wg_rst.AddNew

wg_rst("rq")=DATE
wg_rst("sj")=TIME
wg_rst("OrderID")=OrderID
wg_rst("Status")=Status
wg_rst("Filled")=Filled
wg_rst("Remaining")=Remaining
wg_rst("Price")=Price
wg_rst("IndexCode1")=IndexCode1
wg_rst("Market1")=Market1
wg_rst("OrderType")=OrderType
wg_rst("Aspect")=Aspect
wg_rst("Kaiping")=Kaiping
wg_rst("Account")=Account

wg_rst.update
wg_rst.close
application.MsgOut time&" "&OrderID
End Sub

VB下的单,OrderStatusEx2没反应

msgbox都没有弹出来,请帮忙看看是什么问题,谢谢

//下单语句

sub aa1()
set rpt=marketdata.GetReportData("if04","zj")
newprice=rpt.newprice+2

call Order.Buy(0,2,newprice,0,"if04","zj","40009462",0)

end sub

主题：VB下的单,OrderStatusEx2没反应