Domino 9 und frühere Versionen > ND8: Entwicklung

Summen in einer Ansicht-Spalte abfragen

(1/1)

Bruce Willis:
Hallo,

wie bzw. womit kann man die Summen in einer Ansichtspalte auslesen?
Mein u.g. Code funktioniert leider nicht.

Vielen Dank im Voraus.

Gruß
Leo


--- Code: ---Sub Initialize

Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument 'neue Mail
Dim entryOne As NotesViewEntry 'das erste ViewEntry in Ansicht
Dim vec As NotesViewEntryCollection
Dim counter As Integer

Set db = session.CurrentDatabase

counter = 0
Set view = db.GetView( "szCalendarVollAktMAFreiwillig" )
view.AutoUpdate = False
Set vec = view.AllEntries
Set entryOne = vec.GetFirstEntry()

While Not (entryOne Is Nothing)

Print "ColumnValues: " & CStr(entryOne.ColumnValues(0)) & " - " &  CStr(entryOne.ColumnValues(1))
Print "ChildCount: " & CStr(entryOne.ChildCount)& " - " &  CStr(entryOne.ColumnValues(1))
Print "IsTotal: " & CStr(entryOne.IsTotal) & " - " &  CStr(entryOne.ColumnValues(1))
Print "SiblingCount: " & CStr(entryOne.SiblingCount)& " - " &  CStr(entryOne.ColumnValues(1))
Print "IsCategory: " & CStr(entryOne.IsCategory) & " - " &  CStr(entryOne.ColumnValues(1))

If entryOne.IsTotal Then
Print "Yeeees!!!"
Exit Sub
End If

If entryOne.IsCategory Then
Print "Jaaaa!!!"
Exit Sub
End If

counter = counter + 1
Set entryOne = vec.GetNextEntry(entryOne) 
Wend

Print counter

End Sub

--- Ende Code ---

Navigation

[0] Themen-Index