[求助]我想用这种方法自动筛选主力合约 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

'枚举合约，将主力合约的代码和对应市场代码分别作为键和值存入字典容器，供后续操作调用

以下内容为程序代码:

1 Sub frmTest_CommandButton4_Click()
2     Dim marketName
3     Set dominantContract=CreateObject("Scripting.Dictionary")
4     marketName=Array("SQ","DQ","ZQ","ZJ")
5     prefixStockNameOld=""
6     c"
8     contractVol=0
9
10     For j=0 To UBound(marketName)
11         n=marketData.GetReportCount(marketName(j))
12         For i=0 To n-1
13             Set reportData=marketdata.GetReportDataByIndex(marketName(j),i)
14             prefixStockNameCur=left(reportData.StockName,2)
15             suffixStockNameCur=right(reportData.StockName,2)
16             If suffixStockNameCur＞="00" And suffixStockNameCur＜"99" And reportData.Volume＞0 Then
17                 If prefixStockNameCur＜＞prefixStockNameOld Then
18                     If contractLabel＜＞"" Then
19                         dominantContract.Add contractLabel,contractMarket
20                     End If
21                     prefixStockNameOld=prefixStockNameCur
22                     contractLabel=reportData.Label
23                     contractMarket=marketName(j)
24                     contractVol=reportData.Volume
25                 ElseIf reportData.Volume＞contractVol then
26                     contractLabel=reportData.Label
27                     contractVol=reportData.Volume
28                 End If
29             End If
30         Next
31     Next
32     dominantContract.Add contractLabel,contractMarket
33
34     output="Total:"
35     labels=dominantContract.Keys
36     markets=dominantContract.Items
37     output=output&dominantContract.Count&vbCrLf
38     For i = 0 To dominantContract.Count-1
39         output=output&labels(i)&vbTab&markets(i)&vbCrLf
40     Next
41     MsgBox output
42 End Sub

[此贴子已经被作者于2010-8-11 13:46:21编辑过]

主题：[求助]我想用这种方法自动筛选主力合约