有点问题,大家来帮我看看,谢谢!
Dim workspace As New notesuiworkspace
Dim uidoc As notesuidocument
Dim udoc As notesdocument
Dim todayDateTime As NotesDateTime
Dim endDateTime As NotesDateTime
Dim endDateTimeOnly As NotesDateTime
Dim ar As Variant
Dim difference As Long
Set uidoc=workspace.CurrentDocument
Set udoc = uidoc.document
ar=udoc.getitemvalue("ProjectStatus")
'<--到这里就会出现出错:"Error:Object variable not set"
问题点数：40、回复次数：7Top
1 楼bbqgame（最爱Baggio）回复于 2003-06-03 17:46:24 得分 0
写错了,应该是出现"Variant does not contain an object"的提示.Top
2 楼why2100（白开水）回复于 2003-06-03 18:02:32 得分 10
你把uidoc和udoc定义成variant类型试试Top
3 楼bbqgame（最爱Baggio）回复于 2003-06-03 22:22:19 得分 0
uidoc,udoc是定义NotesUIDocument,NotesDocument类的啊Top
4 楼grassky（梁枫）回复于 2003-06-04 18:57:34 得分 15
你是想获取当前文档中的某一个域值吧？
dim returnvalue as string
returnvalue=uidoc.FieldGetText("ProjectStatus")
就可以了
Top
5 楼hq_1980（Tommy）回复于 2003-06-04 20:43:21 得分 15
看楼主的意思是要取个多值，所以用Fieldgettext应该是不符合要求的！
不过这个代码应该没有问题，我试了一下，想尽办法没能让他出错，奇怪了！
你的ProjectStatus域的类型是什么？值是多少？Top
6 楼bbqgame（最爱Baggio）回复于 2003-06-04 23:33:07 得分 0
ProjectStatu是文本域来的,计算.
值是""Top
7 楼bbqgame（最爱Baggio）回复于 2003-06-04 23:35:28 得分 0
SORRY!SORRY!是我大头,搞错了:)
累大家白忙了.
应该不是ProjectStatus的,应该是EndDate
Enddate是一个时间域,可编辑:)
谢谢大家了,问题解决!Top
