Set doc = uidoc.Document
这句话报错未设置对象变量,该如何修改呢,非常感谢,程序如下
Dim ws As New notesuiworkspace
Dim uidoc As notesuidocument
Dim doc As notesdocument
Set uidoc=ws.currentdocument
Set doc = uidoc.Document
For i=1 To 10
Call doc.appenditemvalue("myitem",i)
Next
Call doc.save(True,True )
收起