Rich Text Field丢失链接参考doclink Lotus

时间:2012-03-28 13:57:53

标签: lotus-notes lotus

我有两种形式,每种形式都有与之相关的文档链接。我存储doclink的字段是'RichText'类型。然后我创建'表单A'并发送给将从'表单A'上的按钮创建'表单B'的用户。当用户点击“表单A”按钮时,“表单B”被创建并存储在“表单B”的字段中,“表单A”和“表单A”存储在“表单B”的文档链接中。但是当我在'表单B'中运行并保存命令时,表示doclink'形式A'字段的图标变为蓝色(而不是黄色)。有谁知道可能会发生什么?

1 个答案:

答案 0 :(得分:0)

首先,您在表单和文档之间感到困惑。存储在Notes中的所有内容都是文档,甚至表单也是一种存储为文档的设计元素。因此,您创建文档并保存文档而不是保存表单。

这是一个简单的示例,它似乎对我有用,希望这可以帮助您解决问题:

Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc1 As NotesDocument
Dim doc2 As NotesDocument

Set db = session.CurrentDatabase

Set doc1 = db.CreateDocument
Set doc2 = db.createDocument

doc1.Form = "Form1"
doc2.Form = "Form2"

'Call doc1.Save(True, False)
'Call doc2.Save(True, False)

Dim form1DocLink As NotesRichTextItem 
Set form1DocLink = New NotesRichTextItem(doc1, "field1")
Call form1DocLink.AppendDocLink(doc2, "test")
Call doc1.save(True, False)

Dim form2DocLink As NotesRichTextItem 
Set form2DocLink = New NotesRichTextItem(doc2, "field2") 
Call form2DocLink.AppendDocLink(doc1, "test")
Call doc2.save(True, False)

我创建了两个名为“Form1”和“Form2”的表单。 Form1有一个富文本字段“field1”,Form2有一个富文本字段“field2”。此外,您必须记住在附加文档链接之前保存文档。希望这有帮助,如果确实如此,请接受这个答案。