我需要一個視圖中的兩列的總和

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 

按你原來的樣品，我的天堂不輸出任何東西（？），但我已經把註釋放在了你應該做的地方。