Domino 9 und frühere Versionen > ND7: Entwicklung

Spaltenwerte aus einer View auslesen

<< < (2/2)

MadMetzger:
Die Ansicht hat sogar noch etwas mehr Charme, als die von mir vorgeschlagene.

Aber bisher war Jörg ja nicht wieder hier, um unsere Antworten zu lesen.

Jörg:
Das Problem lag hier an dem "Thisdoc" ..... hier mit habe ich immer auf das aktuelle Dokument zugeriffen
und ich wollte ja die Dokumente aus der View mir anzeigen lassen.



Hier nun der komplette Code mit dem ich nun meine Listbox im Layoutbereich fülle:


--- Code: ---Sub refresh


Dim view As NotesView
Dim dc As notesdocumentcollection
Dim tdoc As NotesDocument
Dim children As Variant


bl$ = "                                 "
Set view = db.GetView("ANSWERE_DOC")
Set dc = view.GetAllDocumentsByKey(doc.ID_MainDOC(0),True)

If dc.Count = 0 Then Exit Sub

Redim children(1 To dc.count)
c =0
For i=1 To dc.Count
Set tdoc = dc.GetNthDocument(i)
If Trim(tdoc.form(0)) = "dokument_files" Then
c = c + 1
children(c) = tdoc.UniversalID+"@"+Left(tdoc.underkategorie(0)+bl$,20)+ " "+tdoc.Subdoc_titel(0)
End If
Next

Redim Preserve children(1 To c)
doc.children = children

End Sub
--- Ende Code ---

Navigation

[0] Themen-Index

[*] Vorherige Sete