Autor Thema: Pickliststring  (Gelesen 1079 mal)

Offline robertpp

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 940
  • Geschlecht: Männlich
Pickliststring
« 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
------------------------------------------------------------
1250 Notes User Client von 5.0.5 bis 6.5.4     WIN2000, XP
14 Notes Server von 6.5 bis 6.5.4 WIN2000, XP

32   Notes Server von 5.0.1 bis 6.5.4 in unserer Domain
323 Notes Server weltweit mit 38000 User in einem Adressbuch

Offline Axel

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re:Pickliststring
« Antwort #1 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

Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline dirk_2909

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.173
  • Geschlecht: Männlich
  • Expand your Notes Client with ECM functionality..
    • d.velop
Re:Pickliststring
« Antwort #2 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
Dirk

[IBM CLP R5]
[IBM CAD 6/6.5]
[IBM CAD 7]
[IBM CAD 8]


"Nein!! … Es genügt nicht Mails in einen anderen Ordner oder Datenbank zu verschieben, um sie zu archivieren!"

   
Disclaimer:
Ich Antworte nach besten Wissen und Gewissen. Sollte sich jemand durch meine Antwort persönlich angegriffen fühlen, ist dies nicht meine Absicht!
Ich bin auch nur ein Mensch, der Fehler machen kann. ....

Offline dirk_2909

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.173
  • Geschlecht: Männlich
  • Expand your Notes Client with ECM functionality..
    • d.velop
Re:Pickliststring
« Antwort #3 am: 30.01.03 - 14:16:14 »
@Axel

Da war ich wohl mit meinem Eintrag zu langsam  :P
Dirk

[IBM CLP R5]
[IBM CAD 6/6.5]
[IBM CAD 7]
[IBM CAD 8]


"Nein!! … Es genügt nicht Mails in einen anderen Ordner oder Datenbank zu verschieben, um sie zu archivieren!"

   
Disclaimer:
Ich Antworte nach besten Wissen und Gewissen. Sollte sich jemand durch meine Antwort persönlich angegriffen fühlen, ist dies nicht meine Absicht!
Ich bin auch nur ein Mensch, der Fehler machen kann. ....

Offline robertpp

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 940
  • Geschlecht: Männlich
Re:Pickliststring
« Antwort #4 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
------------------------------------------------------------
1250 Notes User Client von 5.0.5 bis 6.5.4     WIN2000, XP
14 Notes Server von 6.5 bis 6.5.4 WIN2000, XP

32   Notes Server von 5.0.1 bis 6.5.4 in unserer Domain
323 Notes Server weltweit mit 38000 User in einem Adressbuch

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz