lathan reddy 23.Mar.12 11:44 AM a Web browser Domino Designer7.0.1Windows XP
Hi All ,
Some one could help me pls,
I Have button called "Display" and that contains the code as below.
Sub Click(Source As Button)
Dim workspace As New notesuiworkspace
Dim session As New notessession
Dim db As notesdatabase
Dim uidoc As NotesUIDocument
Dim folder As notesview
Dim view As notesview
Dim linedoc As NotesDocument
Dim keyworddoc As NotesDocument
Dim oldline As Variant
Dim itemdoc As NotesDocument
Dim newbody As Variant
Dim appendix As Variant
Dim apptable As Variant
Dim searchdoc As String
Set db=session.currentdatabase
Set uidoc = workspace.CurrentDocument
Set itemdoc = uidoc.Document
Set newbody = New NotesRichTextItem(itemdoc,"Body_R")
' get first line document of item folder then get the WholeLine_R field from
' each line document until all line documents within the folder have been processed
' append each WholeLine_R field to the previous one in the Body_R field
Set linedoc = folder.getfirstdocument
While Not(linedoc Is Nothing)
Set oldline = linedoc.getfirstitem("WholeLine_R")
Call newbody.appendrtitem(oldline)
Call newbody.AddNewLine(1)
Call linedoc.save(False,True)
Set linedoc=folder.getnextdocument(linedoc)
Wend
' get appendix table from keyword document for the item
Set appendix = New NotesRichTextItem(itemdoc,"Appendix_R")
Set view = db.getview("ItemLookup_V")
Set keyworddoc = view.getdocumentbykey(itemnum)
Set apptable = keyworddoc.getfirstitem("KeywordDesc3_R")
Call appendix.appendrtitem(apptable)
' Save and open the document so that all changes can be seen
Return to top
Error Message: Type mismatch in met... (lathan reddy 23.Mar.12)
. . 
Print this page
