如何查詢文檔並獲取其字段值並使用LotusScript將其插入到表單字段中？

Question

實施例I有2次：

• 資料
• 事務

在交易形式，我希望能夠從視圖搜索文檔（使用姓和名）並獲取地址並插入到事務中計算的地址字段中。

我想在postOpen事件中插入LotusScript。

一個例子會大大幫助。

Answer 1

你在編碼方面的經驗是什麼？如果你是新手，你應該從公式語言開始： 首先：獨立於你的解決方案的樣子，視圖的第一個排序列必須包含你的搜索鍵。

最佳做法是，爲此使用單獨的隱藏視圖，以避免妨礙視圖設計的用戶願望。

第二列包含計算字符串你想擁有的其他文件在該列的公式看起來像這樣的所有信息，通過一個特殊字符（〜是一個很常見的一種） 分離：

City + "~" + Zip + "~" + StreetAddress + "~" + PhoneNumber 

然後在你的表單中創建一個計算字段（如LookupData）用下面的代碼：

_lkp := @DbLookup("":"NoCache";"";"NameOfHiddenView";"HereIsYourSearchKey";2) 
@If(@IsError(_lkp); ""; _lkp) 

您必須在該字段中的給定名稱/密鑰的所有數據，並可以使其他領域的計算從那。例如。你有一個叫做「城市」的字段。其計算公式爲：

@Word(LookupData; "~"; 1) 

字段 「電話」 將有公式：

@Word(LookupData; "~"; 4) 

就是這樣。

當然，這可以用LotusScript做，以及...這看起來像（在PostOpen的事件）：

Dim ses as New NotesSession 
Dim db as NotesDatabase 
Dim view as NotesView 
Dim strKey as String 
Dim docLkp as NotesDocument 
Dim doc as NotesDocument 

Set doc = Source.document 
Set db = ses.CurrentDatabase 
Set view = db.getView("NameOfHiddenView") 
StrKey = "HereIsYourSearchKey" 
Set docLkp = view.GetDocumentByKey(strKey, True) 
Call doc.ReplaceItemvalue("City", docLkp.GetItemValue("City") 
Call doc.ReplaceItemvalue("Phone", docLkp.GetItemValue("PhoneNumber") 

有這個代碼不ErrorHandling中，如果該文件確實存在沒有檢查等等... 只是用它作爲出發點...