Мне нужна сумма двух столбцов в представлении

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

Попробуйте это, он накапливает столбцы в rowval путем преобразования строки colval в числовое значение. Вы можете так же легко использовать 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 

Согласно исходному образцу, я убежищем 't выводить что-нибудь (?), но я добавил комментарий, где вы должны это сделать.