Domino 9 und frühere Versionen > Entwicklung

1 Feldwert aus mehreren Einträgen über Ansicht in Variable auslesen

(1/3) > >>

webchild:
Ich habe ein Feld "Projekte"in einer Maske in dem mehrere Einträge aus einem Schlüsselwortfeld ausgelesen wurden.
 
Dann habe ich eine Ansicht, in der diese Werte jeweils getrennt angezeigt werden.

Ich möchte diesen einzelnen Wert nun wiederum an eine Variable übergeben.
Also, wenn ich nun ein Dokument in dieser Ansicht auswähle, soll nur dieser Eintrag an besagte Variable über einen Agenten ausgegeben werden.

Da ich noch nicht sehr firm in Lotus Script bin (totaler Anfänger) komme ich schon gedanklich nicht klar.
Ich kriege es nicht auf die Reihe einen Wert aus einer Ansicht auszulesen.

Soweit bin ich bis jetzt gekommen, aber ich bekomme nur den Fehler "Type Mismatch" ausgegeben:

   Dim ws As New NotesUIWorkspace
   Dim session As New notessession
   Dim db As notesdatabase
   Dim view As notesview
   Dim doc As Notesdocument
   Dim notesViewColumn As NotesViewColumn
   Dim Projektnummer As Variant
   
   Dim test As String
   
   Set db = session.CurrentDatabase
   Set view=db.getview("(Projekt)")   
   Set notesViewColumn = view.Columns (0)
   Set collection = db.UnprocessedDocuments
   Set doc = collection.GetFirstDocument
   Set Projektnummer = notesViewColumn
   
   Messagebox (Projektnummer)

Nicht lachen sondern bitte helfen, Danke! Ich hoffe es ist nur eine Kleinigkeit!    :'(

Semeaphoros:
Nicht lachen, sondern lächeln ...  ;)

Ist die Ansicht kategorisiert? Dann könnte das helfen:

notesUIView.CaretCategory


Vielleicht funktioniert das auch bei nicht kategorisierten (auch wenns dazu nicht vorgesehen ist). Ansonsten dürfte es gar nicht so einfach sein, diese Info zu bekommen .... :-(

webchild:
Die Ansicht ist kategorisiert, aber blöde Frage wo soll ich das denn einbinden?
Soll ich es einfach der Variable "Projektnummer" zuweisen? Aber dann kommt die Fehlermeldung "Variable does not contain an object".

   Dim ws As New NotesUIWorkspace
   Dim session As New notessession
   Dim db As notesdatabase
   Dim Projektnummer As Variant
   
   Set db = session.CurrentDatabase
   Set collection = db.UnprocessedDocuments
   Set Projektnummer = notesUIView.CaretCategory
   
   Messagebox (Projektnummer)
 ???

Axel:
Hi,

du kannst direkt aus einer Ansicht keine Werte auslesen. Du musst immer über ein Dokument gehen. Den richtigen Anfang hast du schon gemacht. Aber über NotesViewColumn kannst du nur die Eigenschaften einer Ansichtsspalte ermitteln.

Dein Code muß so aussehen:

Dim ws As New NotesUIWorkspace
Dim session As New notessession
Dim db As notesdatabase
Dim doc As Notesdocument
Dim strProjektNummer As String
   
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument
strProjektnummer = doc.Projekte(0)
   
Messagebox strProjektnummer

Axel

Semeaphoros:
Set notesUIView=ws.CurrentView


Vielleicht befreundest Du Dich mal mit der Hilfe des Designers

Navigation

[0] Themen-Index

[#] Nächste Seite