Set FunA = marketdata.STKINDI(sCode,sMarket,sAname,0,0)
Set FunB = marketdata.STKINDI(sCode,sMarket,sBname,0,0)
curHoldingA=clng(FunA.GetBufData("持仓",FunA.DataSize-1)) '取A持仓
curHoldingB=clng(FunB.GetBufData("持仓",FunB.DataSize-1)) '取B持仓
这样的代码 专业版运行 curHoldingB 会随数据变化 curHoldingA 不会变化 原因在哪里?
Set FunA = marketdata.STKINDI(sCode,sMarket,sAname,0,0)
curHoldingA=clng(FunA.GetBufData("持仓",FunA.DataSize-1)) '取A持仓
Set FunB = marketdata.STKINDI(sCode,sMarket,sBname,0,0)
curHoldingB=clng(FunB.GetBufData("持仓",FunB.DataSize-1)) '取B持仓
改成 这样就正常了