Domino 9 und frühere Versionen > ND8: Entwicklung

PROMPT_OKCANCELCOMBO mit variablem Inhalt

<< < (2/3) > >>

Bruce Willis:
Hallo Peter,

ich hab's gefunden:

Ein s war zweimal zu viel.  ;)

Es funktioniert jetzt.
Nochmals Danke!

Gruß
Leo

Bruce Willis:
Hallo,

(wie) könnte man den Script noch so User freundlicher verbessern, dass dass statt ZWEI User-Abfragen nur EINE notwendig wäre?

D.h. z.B.


--- Code: ---response = ws.Prompt (PROMPT_OKCANCELCOMBO, _
"Servicezeit am " & doc.Datum(0) &  ": ", "Bitte Funktion auswählen", NEWvalues(0), NEWvalues)

--- Ende Code ---

wo


--- Code: ---NEWvalues(0) = "vHa" & " - " & doc.GetItemValue("vHa")(0)
NEWvalues(1) = "vHa" & " - " & doc.GetItemValue("vHa")(1)
NEWvalues(2) = "vHa" & " - " & doc.GetItemValue("vHa")(2)
NEWvalues(3) = "vHa" & " - " & doc.GetItemValue("vHa")(3)

NEWvalues(4) = "nHa" & " - " & doc.GetItemValue("nHa")(0)
NEWvalues(5) = "nHa" & " - " & doc.GetItemValue("nHa")(1)
NEWvalues(6) = "nHa" & " - " & doc.GetItemValue("nHa")(2)
etc...

--- Ende Code ---

Gruß
Leo

Peter Klett:
Etwa so:

--- Code: --- Dim values(3) As Variant
values(0) = "vHa"
values(1) = "nHa"
values(2) = "vVe"
values(3) = "nVe"

Dim NEWvalues As Variant
Dim count As Integer
Redim NEWvalues (15)
Forall v in values
Forall vv in doc.GetItemValue (v)
NEWvalues (count) = v & " - " & vv
count = count + 1
End Forall
End Forall
If count > 0 Then
Redim Preserve NEWvalues (count - 1)
End If
--- Ende Code ---

Bruce Willis:

--- Zitat von: Peter Klett am 08.08.12 - 19:08:41 ---Etwa so...

--- Ende Zitat ---
Wow!

Peter, Du bist ein wahrer Zauberer !!

Vielen, vielen Dank !!!

 :knuddel:

Gruß
Leo

Peter Klett:
Freut mich, Deine Begeisterung zu lesen, aber wir wollen mal nicht übertreiben ...

Habe Dir in dem Script auch noch einiges an Optimierungspotential übrig gelassen. Probier z.B. mal aus, was passiert, wenn eines der Felder leer ist

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete