问题描述
i=0Fori=0To10000Print"ConsistingArray......i="+Cstr(i)RedimPreservearrValues(i+1)arrValues(i)=Cstr(i)+"A"NextMsgbox"i="+Cstr(i)Print"UserSelectRawMaterialSupplier......"DimvarRawMaterialSupplierAsVariantvarRawMaterialSupplier=uiw.Prompt(PROMPT_OKCANCELCOMBO,"LotusNotes","SelectaRawMaterialSupplier",,arrValues)If(Isempty(varRawMaterialSupplier))ThenPrint"ThereareNOrawmaterialsupplierforthisSite!"ExitSubEndIfPrompt这段代码死活跳不出来。i改成5000就可以了。这是不是因为arrValues的大小有限制?不能超过64k?
解决方案
解决方案二:
哈哈按你说的试了下应该是有大小限制
时间: 2024-10-21 11:59:08