Tabellennamen variabel

[pippo]

Hallo,
man kann ja programmgesteuerte Tabellen machen. Funktioniert prima.

Kann man auch die Beschriftung der Tabellen variabel machen?

Grüße, Pippo

[doliman]

Hi,

meinst Du die Zellen mit Inhalt befüllen oder einen Tabellenreiter mit einem Namen versehen?
ersteres:
mit einem NotesRichTextNavigator durch die Tabelle navigieren

If rows>0 Then
 Call rti.AppendTable(rows, columns,,, styles)
 Dim rtnav As NotesRichTextNavigator
 Set rtnav = rti.CreateNavigator
 Call rtnav.FindFirstElement(RTELEM_TYPE_TABLECELL)

...so ähnlich

Zweiteres:
 Dim rtt As NotesRichTextTable
  Set rtt = rtnav.GetElement
  Dim labels() As String
  Redim labels(1 To rtt.RowCount)
  For i = 1 To rtt.RowCount
    labels(i) = "Tab " & i
  Next
  rtt.RowLabels = labels

...so ähnlich

[pippo]

Hallo,
vielen Dank für Deinen Beitrag.

Ich meine aber Tabellen in einer Maske

Grüße, Pippo

[koehlerbv]

Ich hoffe, Du hast Frank's Beitrag aufmerksam gelesen, Pippo. Nicht, dass sein "Absatz 2" verloren geht ...

Bernhard

[pippo]

uhhh,
da war ich wohl zu schnell...
werde das gleich testen...

Grüße, Pippo

[pippo]

Hallo,
habe das nun getestet.
Das Problem ist aber, dass man in einer Maske keinen rtnav kriegt, nur über richtextitem...

"Set rtt = rtnav.GetElement"

Grüße, Pippo