主题：[求助]关于order.TradeDetalied2函数的使用

 CJnum=0

 newCJnum=order.TradeCount2
 if newCJnum>CJnum then
   application.MsgOut("成交笔数="&newCJnum)
   t1=TimeValue(Now())
   dim Report1
   dim buy1
   dim sell1
   dim Date3
   dim Code3
   dim Market3
   dim OrderType3
   dim Action3
   dim Price3
   dim Volume3
   dim Kaiping3
   for newtrade=CJnum+1 to newCJnum
     call order.TradeDetalied2 (newtrade-1,Date3,Code3,Market3,OrderType3,Action3,Price3,Volume3,Kaiping3,MyAccount)  '取成交明细
     
     set Report1 = marketdata.GetReportData(Code3,Market3)   '取买一卖一价格
     buy1= Report1.BuyPrice1
     sell1=Report1.SellPrice1
    
     application.MsgOut("时间="&t1&" 合约="&Code3&"    买卖="&Action3&"    开平="&Kaiping3&"   数量="&Volume3&"   成交价="&Price3&"   买一价="&buy1&"   卖一价="&sell1)

   next
   CJnum=newCJnum
 end if

得出的结果是这样的：

成交笔数=28
时间=8:17:08 合约=AG06    买卖=1    开平=0   数量=0   成交价=4278   买一价=4295   卖一价=4296
时间=8:17:08 合约=AG06    买卖=1    开平=0   数量=0   成交价=4275   买一价=4295   卖一价=4296
时间=8:17:08 合约=AU06    买卖=0    开平=2   数量=0   成交价=262.05   买一价=262.25   卖一价=262.35
时间=8:17:08 合约=AG06    买卖=0    开平=2   数量=0   成交价=4276   买一价=4295   卖一价=4296
时间=8:17:08 合约=AU06    买卖=1    开平=0   数量=0   成交价=262.1   买一价=262.25   卖一价=262.35
时间=8:17:08 合约=AU06    买卖=0    开平=2   数量=0   成交价=262.35   买一价=262.25   卖一价=262.35
时间=8:17:08 合约=AU05    买卖=1    开平=2   数量=0   成交价=262.15   买一价=0   卖一价=0
时间=8:17:08 合约=AU05    买卖=0    开平=0   数量=0   成交价=262.15   买一价=0   卖一价=0

。。。。。。