How to add Row in Table in Lotus Notes
Hi,
I am using below code to add row at the end of the table in Lotus Notes.
Please help me to add row at the TOP.
Set NSession = CreateObject("Notes.NotesSession")
Set dbdestination = NSession.GetDatabase(pServerPath,pDBNM)
Set DocParent = dbdestination.GetDocumentByUNID(pDocUID)
Set Mailbody = DocParent.GetFirstItem("Body")
Set my_nav = Mailbody.CreateNavigator
Set rtt =my_nav.GetNextElement
RowCount = rtt.RowCount
Colcount = rtt.ColumnCount
ReqCellnum1=ReqCellnum1 +(RowCount * Colcount)
Call rtt.AddRow
Thanks
|