LotusScript 如何解決 AppendItemValue 無效的問題 ?

其實,在 Lotus Designer 的 Help 裡就有寫到說,比較建議用 ReplaceItemValue 來改變欄位的值,不建議使用 AppendItemValue 來新增值,如果你有用 AppendItemValue 來為一個多重值欄位 ( Multi-Text Field ) 來新增一個值的時候,就會發現,AppendItemValue 有時候會完全沒有動的樣子,也就是無法新增一個值到多重值的欄位。

阿舍有看過有人用另外建立一個陣列或 List 來塞欄位值,然後,再透過增加陣列或 List 的大小來放入新的值,之後,再用 ReplaceItemValue 來把這個陣列或字串放回欄位去,整個過程有一點點的小複雜哩 ! 其實,可以不用這麼複雜的,只要透過 NotesItem 這個物件的 AppendTextToList 就可以解決了哩 !

假設我們要在 Phone 這個多重值欄位再加入一組 0988888888 的電話號碼,那麼程式只要這樣寫就可以把電新增到 Phone 欄位去了。

Dim itmPhone as NotesItem

Set itmPhone = doc.GetFirstItem("Phone")
Call litmPhone.AppendToTextList(“0988888888")

Call doc.Save(false,true)
分享:

沒有留言 :