使用LotusScript获取多值域的值

最新推荐文章于 2019-04-09 14:11:35 发布

原创最新推荐文章于 2019-04-09 14:11:35 发布 · 3.6k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#文档

Lotus——Design 专栏收录该内容

27 篇文章

订阅专栏

本文介绍了在Lotus Notes环境中处理多值域数据的方法。通过四种不同的方式展示如何将存储在文档中的多值文本域合并成单一字符串。这些方法包括直接连接、使用@Implode函数、利用GetItemValue方法及转换为数组进行处理。

原理：文档中的域值是数组形式的。多值域的值类似于一行多列的数组,下标从0开始。
假定域名为Employee，类型为多值文本域，文档中此域的值为:james,robin,alfred。
计划使用LS的得到返回值为：jamesrobinalfred。
方法1、直接获取
strEmployee = doc.Employee(0) +doc.Employee(1) +doc.Employee(2)
方法2、使用Evaluate声明
Dim strEmployee As Variant
Const NotesMacro$ = "@Implode(Employee)"
strEmployee = Evaluate(NotesMacro$,doc)
Msgbox Cstr(strEmployee(0))
方法3、使用GetItemValue方法
Dim itmEmployee As Variant
itmEmployee = doc.GetItemValue("Employee ")
Forall o In itmEmployee
Msgbox Cstr(o)
End Forall
方法4、转化为数组处理
Dim i,j As Integer
i = 0
arrEmployee = doc.GetItemValue("Employee ")
For j=Lbound(arrEmployee) To Ubound(arrEmployee)
Msgbox Cstr(arrEmployee(i))
i=i+1
Next