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

Line 6 is..

Set rtt = my_nav.GetElement

sachin ahuja wrote:

I am using below code to add row at the end of the table in Lotus Notes.

[/me looks at the group's name...]

I bet nobody here knows anything about programming Notes. Just sayin'.

--
Super villainy 101: minions are stupid.