Domino 9 und frühere Versionen > ND7: Entwicklung

Ausgabe sämtlicher angelegter Kunden aus Ansicht per LotusScript

<< < (2/2)

DAU-in:
pickliststrings method

du musst ja nichts weiterverarbeiten

basswurm:
Also...habe folgenden Code (PickListStrings method) mal dem Button hinterlegt:


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


Wie kann ich hier bestimmen, dass als Ressource meine Ansicht (= "Kunden_Nachname") gegriffen wird? Durch obigen Code öffnet sich momentan das Adressbuch meiner FH :-:

Grüße!!

koehlerbv:
Benutze bitte die sehr gute Designer-Hilfe - da steht die erforderliche Syntax genau beschrieben.

Ob PicklistStrings für Dein Problem die allerbeste Lösung ist, wage ich zu bezweifeln, aber irgendwo musst Du ja erstmal anfangen.

Bernhard

basswurm:
Hallo an alle Helfer!!!

Habe mein Problem gelöst...habe mir nochmal Gedanken gemacht und nicht die Outputbox sondern ein mitwachsendes Feld bevorzugt...
Wahrscheinlich stellt das hier ein Klacks für Routiniers dar...ich, allerdings, klopf mir auf die Schulter ;)!
folgender Code, falls es in irgendeiner Art interessiert:

Sub Click(Source As Button)
   
   Dim db As NotesDatabase
   Set DB = New NotesDatabase("","LotusScript_DB.nsf")
   Dim view As NotesView
   Set view = db.getView("Kunden_Nachname")
   Dim doc As NotesDocument
   Set doc = view.GetFirstDocument
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Set uidoc = ws.CurrentDocument
   Dim lastNameField As Variant
   Dim firstNameField As Variant
   Dim FullName As String
   
   uidoc.FieldSetText"allekunden",""
   
   While Not (doc Is Nothing)
      
      LastNameField = doc.GetItemValue("Nachname")
      FirstNameField = doc.GetItemValue("Vorname")
      FullName = (FirstNameField(0) & " " & LastNameField(0))
      UIdoc.FieldAppendText"allekunden",FullName + Chr (10)
      Set doc = view.GetNextDocument(doc)
   Wend
   
End Sub


Danke nochmal für eure Hilfe und ciao................

Steven

Navigation

[0] Themen-Index

[*] Vorherige Sete