以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  HistoryData对象问题  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=6564)
--  作者：francus
--  发布时间：2011/5/18 16:58:11
--  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对象同时存在吗？请各位高手帮忙看看

 

 
--  作者：admin
--  发布时间：2011/5/18 21:43:18
--  

是的不允许的

你只能先将第一个放到ARRAY里,然后再进行处理
--  作者：francus
--  发布时间：2011/5/18 22:35:12
--  

哦，非常感谢，

不过这样会比较麻烦