11. @DbColumn和@DbLookUp的LotusScript版本

最新推荐文章于 2020-11-02 22:58:19 发布

原创

最新推荐文章于 2020-11-02 22:58:19 发布 · 4.8k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#DbColumn #DbLookUp #LotusScript #公式

这篇博客介绍了如何在LotusScript中模拟@DbColumn和@DbLookUp的功能。@DbColumn在LotusScript中有对应的NotesView.GetColumnValues()方法，但@DbLookUp的直接等价物并不存在。文章探讨了通过NotesView GetAllDocumentsByKey()和GetAllEntriesByKey()来满足类似需求，并提出编写自定义LotusScript函数以简化代码编写和提高效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

由于Notes数据库特殊的结构，@DbColumn和@DbLookUp相当于SQL中的Select语句，是最重要和有用的公式。在LotusScript里，@DbColumn有对等的方法NotesView.GetColumnValues()，虽然帮助文档中没有记录，但是在编辑LotusScript时，这个方法都会出现在视图对象的方法列表里，返回的是一个包含在Variant里的数组。精确实现@DbLookUp的功能的方法不存在。利用NotesView.GetAllDocumentsByKey()和NotesView.GetAllEntriesByKey()可以满足对应的查找需求，不过有时候还是直接获得像@DbLookUp返回的结果那样比较方便。当然，我们可以在LotusScript里嵌入公式，但是如果有一个LotusScript的函数，就不必在两种语言间切换，还可以利用编辑器的功能确保语法的正确。那么，我们就动手自己写一个吧。

%REM
	Function DbLookUp
	Description: return an array. Values from multiple documents matched with the key are
	put in one array. If no document matches, return EMPTY
%END REM
Function DbLookUp(viewName As String, keys As variant, field As variant, dbPath As string ) As Variant
	Dim s As New notessession
	Dim db As NotesDatabase
	Dim result As Variant, v(0) As Variant
	If (dbPath="") Then
		Set db=s.Currentdatabase
	Else
		Set db=s.Getdatabase(s.Currentdatabase.Server, dbPath)
	End If
	If Not db.Isopen Then
		DbLookUp=result
		Ex