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

Sub ORDER_OrderStatusEx2(OrderID, Status, Filled, Remaining, Price, Code, Market, OrderType, Aspect, Kaiping, Account, AccountType)
  APPLICATION.MsgOut STATUS
End Sub

我们通过简单的代码，手工下单是可以收到消息

估计你是其他地方的问题，你试试将代码的数据库部分以及其他一些罗嗦的代码删除，简化代码后看看。

学会用排除法查找问题是每个程序员必备的最基本的能力之一