if not(wucode) then
 set Report1 = MarketData.GetReportData(Code,Market1)
 if i=0 then
 MaxVolume = Report1.Volume
 end if
 
    If Report1.Volume = MaxVolume Then
     MaxCode = Report1.Label
     'MaxVolume = Report1.Volume
    End if
end if

每次升級后都提示“If Report1.Volume = MaxVolume Then”這句424錯(cuò)誤。

MarketData.GetReportData(Code,Market1)

你仔細(xì)檢查一下 Code,Market1 這兩個(gè)變量的品種是不是系統(tǒng)里面沒有，沒有的話Report1 對象就是控制，自然就會(huì)出現(xiàn)問題。

為了防止出現(xiàn)異常，建議你的代碼中涉及到對象引用時(shí)，要加以對象是否為空的判斷

set Report1 = MarketData.GetReportData(Code,Market1)

if not(Report1 is nothing) then
  '相應(yīng)的處理
end if