--
i=1
\'for i=0 to stockcount-1
Application.PeekAndPump
StkLable=block.GetStockCode(i)
MarketName=block.GetStockMarket(i)
Application.msgout "StkLable="&StkLable
Application.msgout "MarketName="&MarketName
\'dim MyReport
set MyReport=MarketData.GetReportdata(Stklabel,MarketName)
StkName=MyReport.StockName
commodity=left(StkName,len(StkName)-4)
call trade(sAccount,odervol,StkLable,MarketName,StkName)
\'next
这样也是报错