Das Notes Forum
Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: Milamber am 07.07.10 - 13:11:02
-
Hallo zusammen, ich hab ein kleines Problem hier.
folgender Code (Ausschnitt):
Dim item As notesitem
Dim wert As Variant
Dim NeuerWert As Variant
Dim ZahlWert() As Single
Set item = doc.GetFirstItem(FELD1)
Wert = item.values
item.Remove
Dim ZahlNeu List As Double
Dim x As Integer
' X soll zeigen, dass ein bestimmer Wert nicht übernommen werden soll.
' X = 0 ist nur ein Bsp. Der Wert wird dynamisch ermittelt
For x=0 To Ubound(wert)
if not x = 0 then
ZahlNeu (x) = wert(x)
end if
Next
Call doc.ReplaceItemValue(FELD1, ZahlNeu)
Als Ergbnis steht im Feld der Wert 0 obwohl es mehrere sein sollte.
Die Feldeigenschaften stimmen.
Sinn der Sache ist.
Der User möchte einen Wert aus der Liste löschen. Dieser wird mit X angegeben.
Ich baue dann die Liste neu auf, indem ich jeden Eintrag prüfen und X weglasse.
Jemand ne Idee wo der Fehler ist?
Mach ich das gleiche aber mit Text statt Zahlen, dann klappt es wunderbar.
Habt Dank :-)
-
Da muss aber noch eine Fehlermeldung kommen - Du kannst keine List in ein Item schreiben. Was Du hierfür brauchst, ist ein Array.
HTH,
Bernhard
-
Nein da kommt gar kein Fehler. Es macht es mit ner 0.
-
danke hat sich erledgt. hab ein dynamisches array eingebaut.