Probleme mit NotesRichTextNavigator

[Jürgen Schomann]

Ich habe folgenden Code:
Die ist nur ein stark abgerüsteter Test.

Dim rtNav As NotesRichTextNavigator
Dim rtTable As NotesRichTextTable
Dim rtItem As NotesRichTextItem
Dim rtpTableStyle As NotesRichTextParagraphStyle
Dim lTable&
Dim iIx%
Dim sContent$

If lTable = 1 Then
   sContent = "111"
Else
   Content = "222"
End If

Call rtItem.AppendTable(1, 1, , RULER_ONE_INCH, rtpTableStyle)
Set rtNav = rtItem.CreateNavigator
Call rtNav.FindNthElement(RTELEM_TYPE_TABLE, lTable)
Set rtTable = rtNav.GetElement
      
Call rtNav.FindFirstElement(RTELEM_TYPE_TABLECELL)
For iIx = 1 To 5
   Call rtTable.AddRow()
   Call rtItem.BeginInsert(rtNav)
   Call rtItem.AppendText(sContent)
   Call rtItem.EndInsert
   Call rtNav.FindNextElement(RTELEM_TYPE_TABLECELL)
Next

Wenn ich diesen abarbeite mit lTable = 1, wird die 1. Tabelle richtig erzeugt. Wenn ich aber mit lTable = 2 danach noch einmal den Code abarbeite, wird die 2. Tabelle leer erzeugt und der Inhalt der 1. Tabelle mit dem für die 2. Tabelle gedachten überschrieben.
Es wird beim 2. Durchlauf zwar die 2. Tabelle gefunden, aber der Navigator beginnt mit der Suche nach der Zelle wieder von vorne, also in der 1. Tabelle.
Auch eine Zuweisung mit Call rtNav.SetPosition(rtTable) oder die Verwendung eines Range-Objektes mit SetBegin/SetEnd und Verwendung eines Navigators für diesen Bereich klappt nicht.

Was muss ich machen, um auch die 2. Tabelle mit dem Inhalt zu füllen?

[ghostmw]

...
Call rtNav.FindFirstElement(RTELEM_TYPE_TABLECELL)
...

Das müsste der casus knaxus zu sein, du holst dir damit doch immer die erste Tabellenzelle im ganzene Richtextelement

Call rtNav.FindNextElement(RTELEM_TYPE_TABLECELL, 1)

sollte hinhauen meiner Meinung nach, in der Hilfe zu FindFirstElement / FindNextElement kannst du deinen "Fehler" nachlesen.

[Jürgen Schomann]

Hallo Marco, vielen Dank für deine Antwort. Das war's.
Ich dachte, wenn ich die 2. Tabelle navigiert habe, dass der Navigator dann ab Beginn dieser Tabelle wieder mit First anfangen muss.