Domino 9 und frühere Versionen > ND8: Entwicklung

Checkbox löst Aktion aus

<< < (2/4) > >>

magic_halli:

--- Zitat ---Ich würde es aber nicht im Initialize sondern im QueryOpen machen.
--- Ende Zitat ---
Es gibt beim Kombinationsfeld kein QueryOpen!
Wenn ich die Ordnersuche ans 'Entering' der Kombibox hänge, erfolgt diese ja erst, wenn ich die Kombibox anklicke?!

 

TRO:
1. QueryOpen des Dokumentes!

2. in früheren Versionen war NotesView.IsFolder unperformant, das für alle getesteten Ansichten der View-Indes neu aufgebeut wurde. Keine Ahnung, ob das noch in ND8 so ist

3. bitte auch mal @PickList( [FOLDERS]..... in betracht ziehen, das könnet man schön in einen Button packen.

hth

thomas

magic_halli:
Ich hab jetzt folgendes, um mir die Folder einer MailDB erstmal zu ermitteln:

--- Code: ---Dim session As New NotesSession
Dim db As NotesDatabase
Dim views As Variant

Set db = session.CurrentDatabase
views = db.Views

Forall v In views
If (v.IsFolder) Then
foldername = v.Name
End If
End Forall

--- Ende Code ---
Wie bekomme ich denn die Foldernames in meine Kombibox 'AllFolders' rein?

dirk_2909:
Du musst foldernames einem Feld zuweisen (Feld verborgen, Mehrfachwerte zulassen , …).
Das Feld (der Name) schreibst Du als Auswahlformel in Deine Kombobox.

magic_halli:

--- Zitat von: dirk_2909 am 27.11.08 - 13:46:26 ---Du musst foldernames einem Feld zuweisen (Feld verborgen, Mehrfachwerte zulassen , …).
Das Feld (der Name) schreibst Du als Auswahlformel in Deine Kombobox.

--- Ende Zitat ---
...Hab ich gemacht.
Hier nun mein Code, um die Ordner der MailDB auszulesen und ins HiddenField "Foldernames" zu speichern:

--- Code: --- Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim item As NotesItem
Dim views As Variant

Set db = session.CurrentDatabase
Set doc = db.GetProfileDocument("MyProfileDoc", session.UserName)
views = db.Views

Forall v In views
If (v.IsFolder) Then
foldername = v.Name
End If
End Forall

Set item = doc.AppendItemValue("Foldernames", foldername)

--- Ende Code ---
Es steht aber nur der letzte Ordnername, der durch 'ForAll' ermittelt wird, im HiddenField bzw. in der Kombibox (solten so ca. 8 sein). Irgendwas is hier noch faul?!?

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete