Question

有没有简单的方法来创建包含表单中所有可用字段的视图？

我有一个包含超过100个字段的表单，并且创建一个包含所有字段的视图将花费太多时间。目的是在视图中导出数据。

Answer 1

您可以使用NotesDatabase.CreateView方法创建View，并使用NotesView.CreateColumn为此View创建列。您可以从NotesForm.Fields属性获取Form中所有字段的列表。您可以从NotesDatabase.GetForm方法获得Form本身这是一个例子：

Dim ses As New NotesSession
Dim db As NotesDatabase
Dim form As NotesForm   
Dim view As NotesView

Set db = ses.CurrentDatabase

formName$ = "YourFormName"

Set form = db.GetForm(formName$)

Set view = db.CreateView(formName$ & "Fields", {Form = "} & formName$ & {"})

Forall field In form.Fields
    Call view.CreateColumn(, field, field)
End Forall

Answer 2

您可以打开使用表单创建的文档，并迭代NotesItems。在那里你可以得到字段名称。

代码看起来像这样：

Dim field List As String

Forall i in doc.Items
    field(i.Name) = i.Text
End Forall

现在，您有一个列表，其中包含字段的文本表示形式作为值，字段名称作为列表标记。

或者您可以对每个文档执行此操作并导出所有值。创建具有100列的视图将创建巨大的视图索引。不是一个好主意。

Answer 3

也许你可以使用

ReadViewEntries 使用此命令以XML格式访问视图数据，而不使用外观属性，如字体，列表分隔符，日期格式，HTML设置，视图模板和帧重定向。语法：

http://Host/Database/ViewName?ReadViewEntries

链接：http://www.ibm.com/developerworks/lotus/library/ls-Domino_URL_cheat_sheet/

在Lotus Script或Lotus Formula中的视图中显示表单中的所有字段

3 个答案: