Liste erzeugen ??????? In LS

[masterste2000]

Hallo zusammen!!!

Ich möchte gerne eine Liste erzeugen, die ich durch eine Prompt_OCANCELLIST dem Nutzer zur Verfügung stellen möchte.

Mein Problem ist, dass ich keine Liste erzeugen kann die einzelne Auswahlmöglichkeiten ergeben!!???

Choices soll die Auswahlliste beinhalten

 Selection =   mworkspace.Prompt(PROMPT_OKCANCELLIST, "Select Batch Number", "Select Batch Number from the List", PROMPT_LISTMULT, Choices)

Wie bekomme ich in Choices z.b. folgende Auswahl:

100
200
300
700
900

Meine Versuche mit Choices = "100"+"200"+"300" .....

bringen nichts, da Choises nur eine Auswahl beinhaltet!!!

WER kann mir helfen??



VIELEN DANK

 

[koehlerbv]

Dim aChoices (0 to 4) As String

aChoices (0) = "100"
aChoices (1) = "200"
aChoices (2) = "300"
aChoices (3) = "700"
aChoices (4) = "900"

Selection = mworkspace.Prompt(PROMPT_OKCANCELLIST, "Select Batch Number", "Select Batch Number from the List", PROMPT_LISTMULT, aChoices (0), aChoices)

Das ist nur die starr codierte Variante. Interessant wird es, wenn man das dynamisch braucht. Aber das wirst Du nun selber hinbekommen.

HTH,
Bernhard

[klaussal]

Mal wieder aus der Hilfe:

Dim values(2) As Variant
  values(0) = "Schedule"
  values(1) = "Phone Book"
  values(2) = "My Mail"
  response = workspace.Prompt (PROMPT_OKCANCELLIST, _
  "Select a Database", _
  "Select a database to open.", _
  values(0), values)

[m3]

Dim aChoices (0 to 4) As String

aChoices (0) = "100"
aChoices (1) = "200"
aChoices (2) = "300"
aChoices (3) = "700"
aChoices (4) = "900"

Selection = mworkspace.Prompt(PROMPT_OKCANCELLIST, "Select Batch Number", "Select Batch Number from the List", PROMPT_LISTMULT, aChoices (0), aChoices)

Das Befüllen des Arrays geht mit Split eleganter:

Code

Dim aChoices As Variant

aChoices = Split( "100,200,300,700,900", ",")
...

Wobei, wenn ich mich richtig erinnere, gab es Split in R5 nicht

[koehlerbv]

Deswegen habe ich das auch nicht gepostet, Martin. Für R4 / R5 habe ich deswegen eine eigene Routine "ArrayAdd", um dieses Manko zu umschiffen.

Bernhard

[ZaLudtske]

Hallo,

hier eine kleine Funktion als Splitersatz unter R5.

Code

Public Function fktSplit(Byval strAusdruck As String, Byval strTrennz As String) As Variant
  Dim strCmd As String
	
  Dim vntReturn As Variant
	
  strCmd = "@EXPLODE(" + Chr(34) + strAusdruck + Chr(34) + "; " + Chr(34) + strTrennz + Chr(34) +");"
	
  vntReturn = Evaluate(strCmd)
	
  fktSplit = vntReturn
	
End Function