Domino 9 und frühere Versionen > Entwicklung

Dokumente in Ansicht zählen und in ein Maskenfeld übernehmen

<< < (2/2)

eknori:
wobei man die Formel auch in Script darstellen kann...

Sub Click(Source As Button)
   Dim dummy As Variant
   dummy =    DbColumn ( "" ,  "NoCache" , "Servername" ,  "DevIdea.nsf" , "Alpha" ,  2 )
   NumOfDocsInView% =   Ubound ( dummy )  + 1
   Msgbox NumOfDocsInView%
End Sub



Function DBColumn(strClass As String, strNoCache As String, strServer As String, strDatabase As String, strView As String, numCol As Integer) As Variant
   quotes = Chr(34)
   strFormula = "@Left(@Trim( @DbColumn(" & quotes & strClass & quotes & ":" & quotes & strNoCache & quotes & ";" & quotes & strServer & quotes & ":" & quotes & strDatabase & quotes & ";" & quotes & strView & quotes & ";"  & numCol & "));1)"
   DbColumn = Evaluate( strFormula )
End Function

ata:
@Eknori

... deine DBColumn-Funktion ist pfiffig - wie sieht es im Vergleich zur Schleife mit der Performance aus - hast du Erfahrungswerte...

ata

eknori:
habe ich in diese Richtung nie getestet. Bei DBColumn gibt es aber eine Beschränkung, was die Anzahl der Daten (64 k ? )betrifft. Eignet sich daher nicht für Ansichten, die etliche Datensätze haben.

HRaq:
Hallo Ata, hallo Eknori,

Ihr beiden seid echt klasse. Hätte nie gedacht, solche Ergebnisse auf meine Anfrage zu bekommen. Nochmals vielen Dank.

Gruß Henning

Glombi:
Hi,
ich hätt auch noch einen, wenn's auch mit Verspätung ist  ;)

Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim vc As NotesViewEntryCollection
Set db = session.CurrentDatabase
Set view = db.GetView("Name der Ansicht)
Set vc = view.AllEntries
Messagebox vc.Count

Die Formel arbeitet allerdings mit der ViewEntry bzw. Collection Klassen. Mitunter erlebt man dabei die tollsten Dinge!
Besser ist, wenn die Ansicht nicht kategorisiert ist.
Die Formel müsste aber von der Performance her besser sein, wenn viele Dokumente in der View sind, da nicht iteriert wird.
Die 64 K Grenze sollte auch nicht gelten.

Andreas

Navigation

[0] Themen-Index

[*] Vorherige Sete