使用LotusScript改变域值得问题直接对Filed赋值是没有问题的SubInitializeDimsessionAsNotesSessionDimdbAsNotesDatabaseDimviewAsNotesViewDimdocAsNotesDocumentSetsession=NewNotesSessionSetdb=session.CurrentdatabaseSe

Question

使用Lotus Script改变域值得问题
直接对Filed赋值是没有问题的
Sub Initialize
Dim session As NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Set session = New NotesSession
Set db = session.Currentdatabase
Set view=db.getview("V-EmpInfo")
Set doc=view.Getfirstdocument()
Do Until (doc Is Nothing)
doc.skilllevel=111
Call doc.save(False,True)
Set doc=view.Getnextdocument(doc)
Loop
End Sub
在循环里面加入IF条件以后就报错了,说type mimatch,这是什么原因啊
Do Until (doc Is Nothing)
if doc.skilllevel=1 then
doc.skilllevel=111
end
Call doc.save(False,True)
Set doc=view.Getnextdocument(doc)
Loop

Answer 1

写LOTUSSCRIPT要养成习惯,所有函数都加调试代码
on error goto errorhandle
.
exit sub
errorhandle:
msgbox "Error:" & error & " on Line " & erl
首先查看报错在第几行,猜测你的报错是在 doc.skilllevel=1,请检查skilllevel是文本类型还是数字类型域,个人的习惯和经验是所有form中添加的域全部使用文本类型,需要计算或匹配时统一在代码里做,否则域一多,注释少或没有开发手册,后来的人根本看不懂,要花很长时间调试问题的.