LotusScript方法扩展

ReplaceItemValueByIndex

功能:

代码
1  Function  ReplaceItemValueByIndex(jmcdoc_Source  As  NotesDocument,strItemName  As   String  ,iIndex  As   Integer ,Value  As  Variant)
2       Dim  vSource  As  Variant 
3       vSource  =  jmcdoc_Source.GetItemValue(strItemName)
4       vSource  =  AryModNItem(vSource,iIndex,Value) 
5        Call  jmcdoc_Source.ReplaceItemValue(strItemName,vSource)
6  End Function

 

AryModNItem

 代码

 

 

你可能感兴趣的:(script)