主题：[求助]order.TradeDetalied2返回的交易明细和保证金监控中心的交易明细对不上？

以下内容为程序代码:

1 Sub mytest()
2
3 dim date1
4 dim code1
5 dim market1
6 dim ordertype1
7 dim Action1
8 dim Price1
9 dim Volume1
10 dim Kaiping1
11
12 set oexcel=createobject("excel.application")
13 oexcel.visible=true
14 oexcel.workbooks.add
15
16 oexcel.cells(1,1)="合约"
17 oexcel.cells(1,2)="成交序号"
18 oexcel.cells(1,3)="成交时间"
19 oexcel.cells(1,4)="买/卖"
20 oexcel.cells(1,5)="投机/套保"
21 oexcel.cells(1,6)="成交价"
22 oexcel.cells(1,7)="手数"
23 oexcel.cells(1,8)="成交额"
24 oexcel.cells(1,9)="开/平"
25 oexcel.cells(1,10)="手续费"
26 oexcel.cells(1,11)="平仓盈亏"
27
28
29 for i=0 to order.TradeCount2-1
30
31 h=i+2
32
33 order.TradeDetalied2 i,date1,code1,market1,ordertype1,action1,price1,volume1,kaiping1,"00081"
34
35 oexcel.cells(h,1)=code1
36 oexcel.cells(h,2)=""
37 oexcel.cells(h,3)=date1
38
39 if action1=0 then
40     oexcel.cells(h,4)="买"
41 elseif action1=1 then
42     oexcel.cells(h,4)="卖"
43 end if
44
45 oexcel.cells(h,5)="投机"
46 oexcel.cells(h,6)=price1
47 oexcel.cells(h,7)=volume1
48 oexcel.cells(h,8)=""
49
50 if kaiping1=0 then
51     oexcel.cells(h,9)="开"
52 elseif kaiping=1 then
53     oexcel.cells(h,9)="平"
54 end if
55
56 oexcel.cells(h,10)=""
57 oexcel.cells(h,11)=""
58
59 next
60
61 End Sub