lotus-notes - 我需要 View 中两列的总和

Question

我发现这段代码通过并打印出两列的csv。我后来解析并计算了两列。我想在这里计算它而不是稍后打印和计算。我一直在胡思乱想，但无法弄清楚。

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

提前感谢您的任何帮助。

Answer 1

试试这个，它通过将 colval 字符串转换为数值来将列累积到 rowval 中。如果它们是浮点数，您可以轻松地使用 double/CDbl() 。这是假设，通过“计算两列”，您的意思是将它们相加并输出总和。如果您的意思是字面上的计数，请将其保留为 Integer并改变线

rowval = rowval + CInt(colval)

到

rowval = rowval + 1

这里是:

Dim entry As NotesViewEntry
Dim vc As NotesViewEntryCollection
Dim rowval As Integer                       ' or Double '
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 
    rowval = 0
    Forall colval In entry.ColumnValues
        rowval = rowval + CInt(colval)      ' Or CDbl() '
    End Forall
    ' Output rowval here. '
    Set entry=vc.GetNextEntry (entry)
Wend

根据您的原始示例，我没有输出任何内容(？)，但我已经在您应该做的地方发表了评论。