怎么从一个主表单提取数据到回复表单

[bdgyz]

谁能告诉我啊

[fokker]

在你的postopen事件中写：
Dim response As NotesDocument
Dim parent As NotesDocument
Dim parentUnid As String

Set response=Source.Document
parentUnid = response.ParentDocumentUNID
If ( parentUnid = "" ) Then
Messagebox( "This document has no parent." )
Exit Sub
End If
Set parent = db.GetDocumentByUNID(parentUnid)

'下面是从你的主文档中提取数据
response.responsefield1(0)=parent.parentfield1(0)
response.responsefield2(0)=parent.parentfield2(0)
'...........................

[bdgyz]

没有人回答嘛?

[bdgyz]

3x
I'll try