LotusScript方法扩展

ReplaceItemValueByIndex

功能：

 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