当前位置: 代码迷 >> Lotus >> lotusscript 获取视图的文档为何得不到解决方法
  详细解决方案

lotusscript 获取视图的文档为何得不到解决方法

热度:352   发布时间:2016-05-05 07:14:26.0
lotusscript 获取视图的文档为何得不到
在Initialize中:

  Dim session As New notessession
Dim db As notesdatabase'发文库
Dim doc As notesdocument
Dim fdoc As notesdocument'前台文档

Dim dagl As String
Dim path As String

Set db=session.currentdatabase
Set fdoc=session.Documentcontext

Set ParseUrl = New ParseUrl(fdoc.Query_String_decoded(0))
docid$=ParseUrl.getParameter("DocID")
Set doc = db.getdocumentbyunid(docid$)’文档一

path = doc.Wjlx(0) '在此处可以获取到文档一的域值
dagl = zsdw(path) '在此处调用方法 zsdw
Msgbox(dagl + "当前库名")


方法 zsdw :

  Dim thissession As New notessession
Dim thisdb As notesdatabase
Dim thisvw As NotesView
Dim thisdoc As NotesDocument
Dim thisdoc1 As NotesDocument

Dim thispath As String 
Dim temp As String

Set thisdb = thissession.CurrentDatabase
Set thisdoc = New NotesDocument ( thisdb )
Set thisvw = thisdb.getview("vwZsdw")’该视图是为获取文档二而建,与文档一无关
Set thisdoc = thisvw.Getfirstdocument()‘问题在这:为什么我获取到的还是文档一

Msgbox(thisdoc.Wjlx(0)) '即这个域为文档一的域值,得到的还是文档一(文档2无此域值)
  Msgbox(thisdoc.Wjlx2(0)) ’该域为文档二的,却显示为空

  注:新建视图为第一列排序 文档二对应的表单上放了很多域,在域内写入的默认值,想通过这个代理,调一个新视图的文档去读新表单里默认的值,进行操作,为什么得不到该文档,还是以前的文档呢?

而且我测试可以得到新的视图了,只是为什么不能得到该新视图的文档呢?(视图内有文档)


那位大虾赐教,个人感觉找不到什么错误了,而且继承过来的库 什么的 都可以获取到视图,为什么在获取文档时候 还是原来的文档呢 ,那位赐教下,不胜感激,谢谢了


------解决方案--------------------
path参数呢?用在哪里了?
得到文档一的方法是从DB里直接抓,
得到文档二的方法是从VIEW里面抓,是不是VIEW就包含了文档二?
  相关解决方案