取得视图上选取文档的文本域的值,看看下面的代码那里错误?

奥爸 2003-11-26 09:27:18
Dim s As New NotesSession
Set db = s.CurrentDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument

Messagebox doc.getfieldtext("username")
我选取了视图上的一个文档
上面写的不正确,运行出错误
...全文
35 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
chenyg2000 2003-11-26
  • 打赏
  • 举报
回复
Dim s As New NotesSession
Set db = s.CurrentDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
tmpstr=""
for i=lbound(doc.GetItemValue("username")) to ubound(doc.GetItemValue("username"))

tmpstr=tmpstr+doc.GetItemValue("username"))(i)
next
Messagebox tmpstr
奥爸 2003-11-26
  • 打赏
  • 举报
回复
我的目的是得到视图中选定的一个文档的一个文本域的内容
ntwo1980 2003-11-26
  • 打赏
  • 举报
回复
不能用db.unprocessdocuments
好像要用uiview或是view的这个属性,记不清了
奥爸 2003-11-26
  • 打赏
  • 举报
回复
Dim s As New NotesSession
Set db = s.CurrentDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument

Messagebox doc.GetItemValue("username")
不正确
xxxding 2003-11-26
  • 打赏
  • 举报
回复
报什么错误啊?
首先NotesDocument有getfieldtext这个方法吗?应该是GetItemValue吧
建议你使用错误处理。
奥爸 2003-11-26
  • 打赏
  • 举报
回复
成功
xxxding 2003-11-26
  • 打赏
  • 举报
回复
Messagebox doc.GetItemValue("username")(0)

535

社区成员

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

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