Rss & SiteMap

金字塔客服中心 - 专业程序化交易软件提供商 http://www.weistock.com/bbs/

专业程序化软件提供商
共3 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:HistoryData对象问题

1楼
francus 发表于:2011/5/18 16:58:11

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对象同时存在吗?请各位高手帮忙看看

 

 

2楼
admin 发表于:2011/5/18 21:43:18

是的不允许的

你只能先将第一个放到ARRAY里,然后再进行处理

3楼
francus 发表于:2011/5/18 22:35:12

哦,非常感谢,

不过这样会比较麻烦

共3 条记录, 每页显示 10 条, 页签: [1]


Powered By Dvbbs Version 8.3.0
Processed in 0.04297 s, 2 queries.