# GetReportDataByIndex 方法
GetReportDataByIndex(Market,Index)
得到指定市场指定基于0索引的ReportData对象,该对象用于表示该品种最新行情数据。
返回值:返回ReportData对象
参数
参数 | 说明 |
---|---|
Market | 市场标识 |
Index | 基于0索引的指定品种,品种数量可由GetReportCount属性获得 |
示例
该示例从郑州市场筛选SR合约得最大持仓量做为主力合约
Sub Test()
Dim MaxCode
Dim MaxVolume
'得到市场所有品种
Count = MarketData.GetReportCount("ZQ")
For i = 0 To Count-1
Set Report1 = MarketData.GetReportDataByIndex("ZQ",i)
'只处理SR合约
if Left(Report1.Label,2) = "SR" Then
'只处理有效合约
if Right(Report1.Label,2) >= "01" And Right(Report1.Label,2) <= "12" Then
If Report1.Volume > MaxVolume Then
MaxCode = Report1.Label
MaxVolume = Report1.Volume
End if
end if
End if
Next
'显示成交量最大得合约
MsgBox MaxCode
End Sub
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
应用于