db.GetDocumentByUNID的问题

youyiyang 2005-03-19 07:30:56
我在查看一个Notes数据库的Agent源码时,看到

Dim WorkSpace As New NotesUIWorkspace

Dim Session As New NotesSession
Dim Curdb As NotesDatabase
Dim uidoc As NotesUIDocument
Dim Collection As NotesDocumentCollection
Dim var,varn,varp,vars,vara ,varno,varino,str_business,str_account_no As Variant
Set Curdb = Session.CurrentDatabase
Set Collection = Curdb.UnprocessedDocuments

'doc--the selected Document;docp--the parent Document
'docn--the compose Document
Dim doc,docn As NotesDocument
Dim docp As NotesDocument

Set doc=collection.GetFirstDocument()

If Not doc.IsResponse Then
Msgbox "请选择入库单文档"
Exit Sub
Else
Set docp = Curdb.GetDocumentByUNID( doc.ParentDocumentUNID )
str_business=docp.business(0) '供货单位
str_account_no=docp.account_no(0) '帐号
End If
其中:Set docp = Curdb.GetDocumentByUNID( doc.ParentDocumentUNID )这条语句,doc本身不是答复文档,它没有父文档,那么这条语句起什么作用呢?但用Lotusscript debugger查看确实又取得了docp。
或者那位大侠能告诉我
Set doc = db.GetDocumentByUNID( doc.ParentDocumentUNID )
这条语句是不是根据父文档的UNID来取得当前文档的UNID,这条语句的实际作用是什么?
谢了!
...全文
253 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
youyiyang 2005-03-28
  • 打赏
  • 举报
回复
我再查了查,doc是Response答复文档。docp是doc的父文档。
zelloss 2005-03-24
  • 打赏
  • 举报
回复
回复人: mason520(林帆) ( ) 信誉:100
你使用五笔字型输入法么?
youyiyang 2005-03-23
  • 打赏
  • 举报
回复
查看了一下,也不是数据库,而是文档。
chapel 2005-03-22
  • 打赏
  • 举报
回复
那可能是得到数据库了.主文档的父文档好象是数据库
youyiyang 2005-03-21
  • 打赏
  • 举报
回复
To:mason520(林帆),
我察看了doc文档,没有$REF域啊。
jenfier 2005-03-21
  • 打赏
  • 举报
回复
啊,楼上的强人
学习了
mason520 2005-03-20
  • 打赏
  • 举报
回复
doc.ParentDocumentUNID 是得到当前文档doc的父文档ID;
因此Set docp = Curdb.GetDocumentByUNID( doc.ParentDocumentUNID )是得到文档doc的父文档ID得到父文档对象docp;
到于你说当前文档没有父文档,你可以查看一下doc文档是否有$REF域,就知道它是否有回复文档。

536

社区成员

发帖
与我相关
我的任务
社区描述
企业开发 Exchange Server
社区管理员
  • 消息协作社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧