Betrifft: ab orgAnice CRM 2008
Frage:
Wie erstellen bzw. beschreibe ich eine persistente Variable mit mehreren Werten (Array)?
Lösung:
Public Sub PersistVarArrayExample()
‚ Erstellen bzw. Beschreiben einer persistenten Variablen mit mehreren Werten (Array)
Dim pv As PersistVar
Dim aValues() As String
‚ Die Ausgangswerte stehen kommagetrennt in einer Zeichenkette
aValues = Split(„Wert 1,Wert 2,Wert 3,Wert 4“, „,“)
‚ Neue persistente Variable erstellen
‚ Achtung: Falls die Variable bereits existiert, dann gibt es den Fehler
‚ 0x8004104E ORGDB_E_DUPNAME: Object name already exists
‚ Deswegen schalten wir die Fehlerbehandlung kurzzeitig aus
On Error Resume Next
Set pv = Database.Parser.PersistVars.Create(„lt_MehrereWerte“, aValues)
If Err.Number = ORGDB_E_DUPNAME Then
‚ Fehlerbehandlung wieder einschalten
On Error GoTo 0
‚ Wir setzen den Wert der bestehende Variable neu
Set pv = Database.Parser.PersistVars(„lt_MehrereWerte“)
pv.Value = aValues
End If
‚ Fehlerbehandlung wieder einschalten
On Error GoTo 0
End Sub