Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Raabiat am 08.10.03 - 11:06:16

Titel: notesitem + wertzuweisung
Beitrag von: Raabiat am 08.10.03 - 11:06:16

Hallo,
folgendes Problem:

set itemAdmin = source.document.getfirstitem("paACLGrpAdminAll")

damit müsste itemAdmin vom typ Notesitem sein

nun möchte ich itemAdmin.values Werte zuweisen

wie soll das gehen?? und von welchem typ muß das sein.
itemAdmin.values ist vom Typ variant, gefüllt mit Strings

ich will lediglich neue werte einfüllen

danke

Titel: Re:notesitem + wertzuweisung
Beitrag von: Myron am 08.10.03 - 12:51:35

Ich habs mal so geschrieben und hatte keine Probleme...


^{Sub Querysave(Source As Notesuidocument, Continue As Variant)
   Dim item As NotesItem
   Dim arr(4) As String
   
   Set item = source.document.getfirstItem("test")
   arr(0) = "Wert0"
   arr(1) = "Wert1"
   arr(2) = "Wert2"
   arr(3) = "Wert3"
   arr(4) = "Wert4"
   item.Values = arr
   Call source.refresh
End Sub}



Grüße
  Markus

Titel: Re:notesitem + wertzuweisung
Beitrag von: Axel am 08.10.03 - 14:25:59

Hi,

nichts einfacher als das. In der Regel brauchst du, besonders wenn's nur um Wertzuweisungen geht, keine solchen Klimmzüge zu machen.

Hier sind die einfacheren Varianten:

Sub Querysave(Source As Notesuidocument, Continue As Variant)

  Dim doc As NotesDocument
  Set doc = Source.Document
  doc.paACLGrpAdminAll = "Feldwert"

End Sub

Es geht auch als Einzeiler:

Sub Querysave(Source As Notesuidocument, Continue As Variant)

  Source.Document.paACLGrpAdminAll = "Feldwert"

End Sub


Axel