보기에 두 열의 합이 필요합니다

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

원래 샘플에 따르면, 나는 아무것도 출력하지 않았지만 (?) 당신이해야 할 곳에 의견을 제시했습니다.