Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Woschi am 19.12.02 - 11:32:04
-
Hallo erstmal an alle LN-Cracks ;)
Ich bin hier ganz frisch und hab noch jede Menge Probleme mit Script!
Ich probiere aus einem Doc heraus, mittesl einem Feld "ProductGrou" über einen Button in einer View (selbe DB) ein Doc zu suchen und dann zu öffnen. Die View ist nach "ProductGroup" sortiert und irgendwie sollte das ja kein Problem darstellen, aber Script ist halt noch net so mein Ding.
Kann jemand helfen?
Gruß
Woschi
-
... die erste Spalte der View muß sortiert sein. Auf meiner Homepage habe ich einen Script-Kurs, dort findest du Beispiele, wie du Dokumente initialisieren kannst, oder du suchst in der Entwicklerhilfe unter "GetDocumentByKey" - dann findest du ein entsprechendes Beispiel das funzt...
http://www.anton-tauscher.de/LotusScript (http://www.anton-tauscher.de/LotusScript)
ata
-
Hallo vielen Dank für den Tipp!
Ich hab jetzt folgenden Code verwendet, bin mir aber nicht sicher, ob ich das Feld "CProductGroup" in meinem geöffneten Dokument direkt als "Key" benutzen kann.
Sub Click(Source As Button)
Dim uiws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView("Product Group")
Set doc = view.GetDocumentByKey(CProductGroup)
Dim ws As New NotesUIWorkspace
Call ws.EditDocument(doc)
End Sub
Ich versprech auch, ich meld mich mit solchen Problemen erst wieder, wenn ich im Februar meinen Script-Kurs besucht hab ::)
Gruß
Woschi
-
... das Feld aus dem aktuellen Dokument mußt du zuerst noch initialisieren, hier der Code...
Sub Click(Source As Button)
Dim uiws As New NotesUIWorkspace
Dim session As New NotesSession
Dim docThis As NotesDocument
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set docThis = uiws.CurrentDocument.Document
Set view = db.GetView("Product Group")
Set doc = view.GetDocumentByKey(docThis.CProductGroup(0) , True)
' # Dim ws As New NotesUIWorkspace
Call uiws.EditDocument(doc)
End Sub
... ich habe meine Veränderungen in Fettschrift markiert...
ata
... hier ist noch kein Handling eingebaut, daß überprüft, ob die Objekte auch wirklich da sind, wie
If Not doc Is Nothing Then...
oder
If Not view Is Nothing Then...
ata