我需要一个视图中的两列的总和

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 

按你原来的样品，我的天堂不输出任何东西（？），但我已经把注释放在了你应该做的地方。