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
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
代码
