2

両方の列のcsvを通過して出力するこのコードを見つけました。後で 2 つの列を解析してカウントします。後で印刷して数えるのではなく、ここで数えたいと思います。ぐぐってみたけどわからなかった。

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

事前に助けてくれてありがとう。

4

1 に答える 1

3

これを試してみてください。colval 文字列を数値に変換して、列を rowval に累積します。double/CDbl() が浮動小数点の場合は、同じように簡単に使用できます。これは、「2 つの列をカウントする」とは、それらを合計して合計を出力することを意味すると仮定しています。文字通り数えることを意味する場合は、そのままにし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

元のサンプルのとおり、何も出力していません (?) が、出力すべき場所にコメントを入れました。

于 2009-02-17T02:07:23.893 に答える