Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: robertpp am 30.01.03 - 14:04:39

Titel: Pickliststring
Beitrag von: robertpp am 30.01.03 - 14:04:39
Ich will von einer ansicht ein doc mit picklist auswählen und dann werte zurückgeben lassen:

var =uiws.pickliststrings(picklist_custom,   False,"SERVER","DB","Kostenst","Wählen sie eine Kostenstellen aus","Dokumentenwahl",2)

in diesen Fall gibt er mir den Wert aus der zweiten Spalte zurück, das passt auch und funkt aber ich möchte gleichzeitig das er mir den Wert der ersten Spalte auchh zurückgibt?
Wie mach ich das am besten?

mfg Robert
Titel: Re:Pickliststring
Beitrag von: Axel am 30.01.03 - 14:10:51
Hi,

das geht nicht so ohne weiteres. Die Picklistmethode kann immer nur den Inhalt einer Spalte zurückliefern.

Lösungsvorschlag: Erstelle die eine Spalte und kombiniere hier den Inhalt von Spalte 1 und 2 mit einem Trennzeichen, z.B. so Spaltenwert1 + "~" + Spaltenwert2. Diese Spalte kannst du auch verstecken.
Diese Spalte gibst du dann in der Picklist - Methode an. Dann braucht du nur noch den Rückgabewert zu zerlegen.

Axel

Titel: Re:Pickliststring
Beitrag von: dirk_2909 am 30.01.03 - 14:14:54
Über eine Picklist kannst Du nicht Werte zweier verschiedener Spalten holen.
Mach doch eine Spalte in der beide Werte  getrennt von einem beliebigen Zeichen getrennt sind. Wenn Du diesen Wert über eine Picklist holst, kannst Du Ihn anschließend mit @Left und @Right zerlegen.
Bsp: Spaltenwert:  Firma +"###"+Kostenstelle

Dirk
Titel: Re:Pickliststring
Beitrag von: dirk_2909 am 30.01.03 - 14:16:14
@Axel

Da war ich wohl mit meinem Eintrag zu langsam  :P
Titel: Re:Pickliststring
Beitrag von: robertpp am 30.01.03 - 14:56:06
Danke für den Vorschlag genau so funktioniert es:

var =uiws.pickliststrings(picklist_custom,   False,"Misebg02ds","Alg/Kostenstv.nsf","Kostenst","Wählen sie eine Kostenstellen aus","Dokumentenwahl",2)
   If Isempty(var) Then Exit Sub
   test$=var(0)
   For i =1 To Len(test$)
      If Mid$(test$,i,1)="~" Then
         'Msgbox i
         nam$ = Right$(test$,Len(test$)-i-1)
         nr$ = Left$(test$,i-2)
     
         i=Len(test$)
      End If
   Next

   Call uidoc.Fieldsettext("Gerät",nam)
   Call uidoc.Fieldsettext("Kostenstelle",nr)

mfg robertpp