如何查询文档并获取其字段值并使用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中，如果该文件确实存在没有检查等等... 只是用它作为出发点...