両方の列のcsvを通過して出力するこのコードを見つけました。後で 2 つの列を解析してカウントします。後で印刷して数えるのではなく、ここで数えたいと思います。ぐぐってみたけどわからなかった。
Dim entry As NotesViewEntry
Dim vc As NotesViewEntryCollection
Dim rowstring As String
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim view As NotesView
Set view = db.GetView( nameofview )
Set vc = view.AllEntries
Set entry = vc.GetFirstEntry()
While Not entry Is Nothing
rowstring = ""
Forall colval In entry.ColumnValues
If rowstring = "" Then
rowstring = colval
Else
rowstring = rowstring + +"," + colval
End If
End Forall
Wend
事前に助けてくれてありがとう。