Domino 9 und frühere Versionen > ND6: Entwicklung

Eigenschaften dynamisch gestalten

<< < (2/2)

Tode:
nur ein Schuss ins blaue, habs nicht probiert, das ganze ist hier in diesem Formular programmiert, also ohne jede Syntaxprüfung...:

Type eigenschaft
   prop as String
   op as String
   val as String
End Type

Dim eigenschaften( 1 ) as eigenschaft

eigenschaften(0).prop = "SelectForms"
eigenschaften(0).op = "="
eigenschaften(0).val = "True"
eigenschaften(1).prop = "SelectViews"
eigenschaften(1).op = "="
eigenschaften(1).val = "True"

exString = |With nc |
cr = Chr$( 10 )
for i = 0 to ubound( eigenschaften )
   exString = exString & cr & "." & eigenschaften( i ).prop & eigenschaften( i ).op & eigenschaften(i).val
Next i
exString = exString & cr & "|End With|"

x = execute( exString )

So oder so ähnlich könnte sowas aussehen.

HTH
Tode

mibo11:
Hallo Tode,

vielen Dank für den Code. Habe ihn geringfügig geändert und ausprobiert, jedoch ohne Erfolg.


   Type eigenschaft
       prop As String
       op As String
       val As String
   End Type

   Dim s As New notessession
   Dim zieldb As NotesDatabase
   Set zieldb = s.CurrentDatabase
   
   Set nc = zieldb.CreateNoteCollection(False)
   Dim eigenschaften( 1 ) As eigenschaft
   
   eigenschaften(0).prop = "SelectForms"
   eigenschaften(0).op = "="
   eigenschaften(0).val = "True"
   eigenschaften(1).prop = "SelectViews"
   eigenschaften(1).op = "="
   eigenschaften(1).val = "True"
   
   exString = |With nc |
   cr = Chr$( 10 )
   For i = 0 To Ubound( eigenschaften )
      exString = exString & cr & "." & eigenschaften( i ).prop & eigenschaften( i ).op & eigenschaften(i).val
   Next i
   exString = exString & cr & |End With|
   
   
   x = Execute( exString )


Hast du noch eine Idee?

Gruß Sascha

Navigation

[0] Themen-Index

[*] Vorherige Sete