Das Notes Forum
Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: shok am 08.06.11 - 17:42:48
-
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?
-
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)
-
Kannst du bitte mal erklären, was genau du machen willst ?
Zum anzeigen von Feldern in einer Dialogbox eignet sich eine Teilmaske.
Chris
-
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. :(
-
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
-
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