Domino 9 und frühere Versionen > ND6: Entwicklung

ReplaceItemValue + dynamische Feldbezeichnung(Schleife)

(1/2) > >>

LukasSChl:
hallo,

Ich habe einen Button in einer Maske, dieser soll beim Klicken
den Inhalt der Textfelder löschen. Die Felder sollen also keinen Text mehr anzeigen.

Also hab ich, da es so weniger Zeilen Code brauch, eine Schleife genommen.
Doch leider funktioniert es so leider nicht.


--- Code: ---Dim oWorkspace As New NotesUIWorkspace
Dim oUIDoc As NotesUIDocument
Set oUIDoc = oWorkspace.CurrentDocument
Dim oDoc As Notesdocument
Set oDoc = oUIDoc.Document
Dim Item As NotesItem
Dim X As Integer
Dim p_zeit As String
Dim p_Anzeige As String

For X = 1 To 6
          p_zeit = oDoc.GetItemValue("Pause_" & X)(0)
          Set item = oDoc.ReplaceItemValue(p_zeit,"")
          p_Anzeige = oDoc.GetItemValue("Pause_" & X & "_Anzeige")(0)
          Set item = oDoc.ReplaceItemValue(p_Anzeige,"")
Next

--- Ende Code ---

Hat jmd eine Idee wie man die Felder in einer Schleife mit neuem Inhalt (nämlich "") befüllt?

Die Möglichkeit,

Set item = oDoc.ReplaceItemValue(("Pause_" & X & "_Anzeige")(0) ,"")

also mit dem dynamischen Feldnamen direkt in der ReplaceItemValue Methode funktioniert leider nicht. schade ;( es wär doch so einfach xDD

Kennt jmd eine andere Lösung für das Problem?

mfg Lukas

Peter Klett:
Die Möglichkeit,

Set item = oDoc.ReplaceItemValue(("Pause_" & X & "_Anzeige")(0) ,"")

also mit dem dynamischen Feldnamen direkt in der ReplaceItemValue Methode funktioniert leider nicht.

Doch, lass mal die (0) weg

LukasSChl:
 :-X  :-[ :-X
omg darauf hätt ich selber kommen müssen  >:( >:( xDD

Danke Peter


mfg Lukas

Peter Klett:
Denk auch an Bernhards Hinweis von neulich

Set item = oDoc.ReplaceItemValue(("Pause_" & Cstr (X) & "_Anzeige") ,"")

Wenn Du das item nicht brauchst, kannst Du auch

Call oDoc.ReplaceItemValue(("Pause_" & Cstr (X) & "_Anzeige") ,"")

verwenden
 

LukasSChl:

--- Zitat von: Peter Klett am 30.04.10 - 13:33:09 ---Denk auch an Bernhards Hinweis von neulich

Set item = oDoc.ReplaceItemValue(("Pause_" & Cstr (X) & "_Anzeige") ,"")

--- Ende Zitat ---

hab ich im Kopf, aber hier in dem Fall nicht nötig, da es auch so funktioniert wenn X ein Integer ist. Dieser ist ja fest und kann nur Werte von 1-6 annehmen.


--- Zitat von: Peter Klett am 30.04.10 - 13:33:09 ---Wenn Du das item nicht brauchst, kannst Du auch

Call oDoc.ReplaceItemValue(("Pause_" & Cstr (X) & "_Anzeige") ,"")
verwenden

--- Ende Zitat ---

Das ist ne Idee, dann spar ich mit wieder eine Zeile Code(deklaration vom Item) ^^

dank dir


mfg Lukas

Navigation

[0] Themen-Index

[#] Nächste Seite