vba - 从 Lotus Notes 数据库中读取列值的 VB 脚本代码

Question

Set domSession = CreateObject("Notes.NotesSession")
Dim domDatabase 
Set domDatabase = domSession.GetDatabase("server Name", "xyz.nsf")
Set domView = domDatabase.GetView("All Projects")

到这里还好。但是我尝试了很多但无法读取文档值。

我正在寻找 vbscript 代码来读取文档数据。

Answer 1

添加这个：

Dim i%
Dim s$
Dim doc As Object

For i% = 1 to domView.EntryCount
  Set doc = domView.GetNthDocument(i%)
  s$ = doc.GetItemValue("itemname")(0)
  ' Do whatever you want with the string value which is now stored in s$
Next

此代码假定项目是文本类型。您可以简单地使用Dim s来获取任何项目类型（数字、日期）。

要从视图中获取列值，您可以使用doc.ColumnValues(2). 这将返回第 3 列的值（0 是第一个）。