Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: dirk_2909 am 24.10.02 - 10:28:50

Titel: Eintrag aus Leserfeld löschen
Beitrag von: dirk_2909 am 24.10.02 - 10:28:50

@All

Ich will aus einem Leserfeld einen Eintrag löschen.
Ich habe dafür einen Agenten geschrieben. Hier ein Teil des Codes:

i=0
merk=-1
      '###################################
      Forall s In itemLeser.Values
         'Hier Feld ZGLeser nach der Person durchsuchen
         If s = strCNUser Then
            merk=i
         End If
         i=i+1
      End Forall
      If merk >= 0 Then
         'und Eintrag entfernen
         
         itemLeser.Values(merk)=""
      End If
......

Ich kann den Agenten aber nicht speichern. Er gibt mir immer hier einen Fehler aus => itemLeser.Values(merk)=""

Was habe ich falsch gemacht? Wie muß es richtig heißen?
Oder geht es einfacher??      

Titel: Re:Eintrag aus Leserfeld löschen
Beitrag von: Axel am 24.10.02 - 10:59:20

Hi,

versuchs mal so:

Dim arrLeser() As String


i=0
      '###################################
      Forall s In itemLeser.Values
         'Hier Feld ZGLeser nach der Person durchsuchen
         If s <> strCNUser Then
            Redim Preserve arrLeser(i)
            arrLeser(i) = s
         End If
         i=i+1
      End Forall
     
      itemLeser.Values = arrLeser


Axel

Titel: Re:Eintrag aus Leserfeld löschen
Beitrag von: dirk_2909 am 24.10.02 - 13:55:40

@Axel

Super hat sofort gefunzt nachdem ich den Zähler in der Bedingung
hochgezählt habe  ;D ;D ;D