主题：HistoryData对象问题

sub hisdatashow()
 application.ClearMsg
 set HData1 = marketdata.GetHistoryData("AX01","DQ",5) 
 for i=HData1.count-3 to HData1.count-1
  application.MsgOut  "开盘价1   " & HData1.open(i)  & "   收盘价   " & HData1.close(i)
 next
 set HData2 = marketdata.GetHistoryData("Al05","SQ",5)
 for i=HData1.count-3 to HData1.count-1
  application.MsgOut  "开盘价2   " & HData2.open(i)  & "   收盘价2   " & HData2.close(i)
 next
 
end sub

 

输出结果：

开盘价1   4397   收盘价   4366
开盘价1   4396   收盘价   4412
开盘价1   4380   收盘价   4371
开盘价2   16560   收盘价2   16605
开盘价2   16550   收盘价2   16540
开盘价2   16815   收盘价2   16810

 

sub hisdatashow()
 application.ClearMsg
 set HData1 = marketdata.GetHistoryData("AX01","DQ",5) 

 set HData2 = marketdata.GetHistoryData("Al05","SQ",5)
 for i=HData1.count-3 to HData1.count-1
  application.MsgOut  "开盘价1   " & HData1.open(i)  & "   收盘价   " & HData1.close(i)
 next
  for i=HData1.count-3 to HData1.count-1
  application.MsgOut  "开盘价2   " & HData2.open(i)  & "   收盘价2   " & HData2.close(i)
 next
 
end sub

 

输出结果：

开盘价1   16560   收盘价   16605
开盘价1   16550   收盘价   16540
开盘价1   16815   收盘价   16810
开盘价2   16560   收盘价2   16605
开盘价2   16550   收盘价2   16540
开盘价2   16815   收盘价2   16810

 

金字塔 不允许两个Historydata对象同时存在吗？请各位高手帮忙看看

 

 

哦，非常感谢，

不过这样会比较麻烦