Einstieg in die Dialog Box

[shok]

Hallo

ich würde gern Datenbankeinträge aus einer anderen Datenbank in eine DialogBox kopieren.
Leider habe ich zuvor noch nicht mit einer DialogBox gearbeitet.
Sitze seit Stunden dran und habe nicht wirklich einen Ansatz.   

Klar ist, das ich eine neue Form erzeugen muss, hier werden die Datenbankeinträge gespeichert.
Diese Form rufe ich dann in der DialogBox auf, ist das soweit richt?

[shok]

kann die Einträge auslesen, doch wie kann ich diese Strings in einer DialogBox anzeigen lassen?


 _{Dim session As New NotesSession
 Dim currentdb As NotesDatabase
 Dim db As New NotesDatabase("***","gcc/CalendarDefaultLocations.nsf")
 Dim workspace As New NotesUIWorkspace
 Dim view As NotesView
 Dim doc As NotesDocument
 Dim docCopy As NotesDocument
 Dim item As NotesItem
 
 
 Set currentdb = session.CurrentDatabase
 Set view = db.GetView("Main")
 Set doc = view.Getfirstdocument()
 Set item = doc.Getfirstitem("Location")
 MessageBox(item.Text)}

[Klafu]

Kannst du bitte mal erklären, was genau du machen willst ?
Zum anzeigen von Feldern in einer Dialogbox eignet sich eine Teilmaske.

Chris

[shok]

ok ein habe eine Datenbank A, diese hat eine View mit den Spalten Name und Vorname.
Weiterhin habe ich eine Maske in einer anderen Datenbank B, hier habe ich einen Button eingebaut der einen Agenten aufruft.
Dieser Agent soll folgendes durchführen:
- DialogBox öffnen und hierbei sollen die Einträge aus der Datenbank A aufgezeigt werden

Bitte um einen ersten Ansatz, da ich langsam frustriert bin.

[Klafu]

Also zum Darstellen von einer Ansicht und deren Einträge würde ich die "PickListStrings method" nehmen
guck mal in die Hilfe

1.   This example displays the resources dialog box and allows the user to select one resource. A message box shows the user's selection.
Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim picklist As Variant
  Dim messagelist As String
  picklist = workspace.PickListStrings( PICKLIST_RESOURCES )
  If ( Isempty( picklist ) ) Then
    Messagebox "Canceled" , , "Resource selected"
  Else
    Forall plist In picklist
      messagelist = messagelist & plist & Chr(10)
    End Forall
    Messagebox messagelist  , , "Resource selected"
  End If
End Sub

Chris

[koehlerbv]

Da das Thema auch parallel im Dominoforum diskutiert wird, zitiere ich der Einfachheit halber hier Mathias Bierls Beitrag dort:

Wie ich in dem anderen Thread schon mal sagte: Schau dir doch erst mal die Grundlagen der Notes Entwicklung an.

Wir können dir hier keine Einführung in die Grundlagen geben nur bei konkreten Fragen weiterhelfen, aber wenn wir jedes Mal auf die Hilfe verweisen müssen bzw Grundlagen wie z.B. wie erstelle ich eine Maske fehlen, dann wird das irgendwann ermüdend.

Dem ist nichts hinzuzufügen.

Bernhard