当前位置:软件学习 > 其它软件 >>

在后台代理中用new 新建的文档为何一直取不到代理,代码如下。谢谢

Dim storedoc As NotesDocument
Set storedoc = New NotesDocument(db)
storedoc.form="fmstore"
Dim wenitem As NotesItem
Set danitem=storedoc.getFirstItem("fdan")
call danitem.getfiestitem("dan")
call storedoc.save(true,true)


后台报错。call danitem.getfiestitem("dan") 这一句对象找不到

请教高手,,后台文档取不到item 吗?
多谢大家
--------------------编程问答-------------------- 啊啊啊。。第一次发帖子。发现好多错。呵呵。题目都错了。。重新如下,,:

在后台代理中用new 新建的文档为何一直取不到item,代码如下。谢谢 
Dim   storedoc   As   NotesDocument 
Set   storedoc   =   New   NotesDocument(db) 
storedoc.form="fmstore" 
Dim   danitem   As   NotesItem 
Set   danitem=storedoc.getFirstItem("fdan") 
call   danitem.getfiestitem("dan") 
call   storedoc.save(true,true) 


后台报错。call   danitem.getfiestitem("dan")   这一句对象找不到 

请教高手,,后台文档取不到item   吗? 
多谢大家 
--------------------编程问答-------------------- 用ls新建一个文档和从表单上新建一个文档是不同滴,所以当然取不到这个域.举个简单的例子,用ls新建文档相当于一张白纸,你在这张纸上去新建一个个域值,而从表单上直接新建一个文档,想当于在一个存在表格的word上填写你需要填写的值,不知道我说的清楚不清楚. --------------------编程问答-------------------- 。。楼上说的很清楚。谢谢。。

可以再麻烦告知下,我想append 些值到 新建文档 的域中。以上可以怎么改进?
是不是初始化这些域就可以了? 
--------------------编程问答-------------------- 我尝试了下。。我知道了。谢谢
只要加上 
storedoc.fdan=""
这句就好了。谢谢楼上的 --------------------编程问答-------------------- 如果是一般的域,则只需要赋值就可以了,如果是rtf域的话,需要新建一个rtf域,如下:


If doc.HasItem("RTF域名称") Then
Set item=doc.GetFirstItem("RTF域名称")
Else
Set item = New notesitem(doc,"RTF域名称","")
End If
--------------------编程问答-------------------- 谢谢。我好像不知道怎么结帖子奥。。 --------------------编程问答-------------------- 文档没值 --------------------编程问答-------------------- 接分是王道!
补充:企业软件 ,  Lotus
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,