我是 lotusScript 和 lotus notes 的新手。我可以使用 notesView 从数据库中检索数据。这是我的 lotusScript 代码的路径:
Sub getViewData
Dim session As New NotesSession
Dim db As NotesDatabase
Dim mainDoc As NotesDocument
Set db = session.CurrentDatabase
Dim collection As NotesDocumentCollection
Set collection = db.AllDocuments
Dim fileName As String
Dim fileNum As Integer
Dim item As NotesItem
Forall v In db.Views
Set mainDoc = v.GetFirstDocument
fileNum% = Freefile()
fileName$ = "C:\AllViewsData\" & v.name & ".txt"
Open FileName$ For Append As fileNum%
Write #fileNum% , "////// VIEW NAME:" & v.name & "////////////"
Set mainDoc = v.GetFirstDocument
While Not ( mainDoc Is Nothing )
Forall i In mainDoc.Items
ss = ss & " " & i.Name
End Forall
Write #fileNum% , ss
Set mainDoc = v.GetNextDocument( mainDoc )
Wend
Close fileNum%
End Forall
结束子
我为每个 notesForms 设计了 sql(relational) 表。我试图使用 notesForm 检索数据并将其存储在相应的表中,但我无法做到这一点:( 非常感谢任何帮助。