Brugen af array

Du er nødt til at fortælle den, hvor mange elementer array skal indeholde, førend du putter noget i.

Hvis vi antager at du vil tage det der står i doc.salaryNo og tillægge to værdier yderligere, så kan det gøres således:

Dim array() as string
Dim u as integer
'erklær doc og tildel
u=ubound(doc.salaryNo)+2
redim array(u) 'ingen preserve da variablen stadig er tom
array = doc.salaryNo
array(u-1) = "test"
array(y) = "test2"
doc.salaryNo = array

(jeg har ikke haft ovenstående forbi en Notes-designer, så der kan godt være en bøv i...)

Jeg synes ikke der er nogen grund til at rode med NotesItem og ReplaceItemValue i dette eksempel. Specielt ikke når det du ønsker at lære er at arbejde med arrays.

Den fejler stadig her: array = doc.salaryNo

Illegal reference to array or list: ARRAY

Du skal ihverttilfælde starte med at Redimme istedenfor at Dimme. Mao skal der stå
    Redim array() as string
til at starte med.

Når man erklærer et array, kan det nogen gange være bedst at erklære det uden at angive type (f.eks. "Dim array"). Prøv sådan her:
Dim array
Dim u As Integer
'erklær doc og tildel
u=Ubound(doc.salaryNo)+2
array = doc.salaryNo
Redim Preserve array(u)
array(u -1) = "test"
array(u) = "test2"
doc.salaryNo = array

En anden ting er at smide det over i en variant til mellembehandling. Varianter er ligeglade med formatet. F.eks.:
    Dim array0 as Variant
    array0 = Doc.SalaryNo
    Dim u as integer
    u=ubound(array0)+ 1

Hvis jeg skriver: Dim array0 as Variant virker array0 = Doc.SalaryNo ikke.
Men hvis jeg skriver Dim Array virker det godt, men så virker array(u-1) = "test" og array(u) = "test2" ikke!!!!!

Hvad hvis du skriver
  Redim array
og senere redimmer
  Redim Preserve array(u)
?

det kan man ikke.... det fejler!

Dette eksempel virker i sin helhed, hvis du laver det som en agent:
Sub Initialize
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Set db = session.CurrentDatabase
    Set doc = New NotesDocument ( db )
    doc.salaryNo = "test0"
    Dim array
    Dim u As Integer
'erklær doc og tildel
    u=Ubound(doc.salaryNo)+2
    array = doc.salaryNo
    Redim Preserve array(u)
    array(u -1) = "test"
    array(u) = "test2"
    doc.salaryNo = array
End Sub

Det forstår jeg ikke. Jeg får en fejl når den kommer til Redim: Illegal REDIM.

--> jogii, hvor starte med en Redim?? Re. henviser vel til at man gentager noget man har gjort i dette tilfælde at Dim'me.

Eller er der en best practise som jeg har overset?

Jeg har løst det med følgende:
    Dim V As Variant
    Dim U As Integer
    V = Doc.GetItemValue(FieldName)
    If V(0) = "" Then
        U = 1
    Else
        U = Ubound(V) + 1
    End If
    Redim Preserve V(U)
    V(U) = FieldValue
    Call Doc.ReplaceItemValue(FieldName, V)

Vedr. Redim, så er det min erfaring at det ikke virker hvis man først dimmer og derefter redimmer. Man skal så at sige fortælle den at man agter at gøre det senere.