Проблемы с созданием форм из формы

  • Автор темы Kron
  • Дата начала
K

Kron

#1
При попытке создания формы из другой формы по процедуре:
Sub Click(Source As Button)
Dim ns As New notessession
Dim ws As New NotesUIWorkspace
Dim uidoc2 As NotesUIDocument
Dim agentshortname As String
Dim db As NotesDatabase
Dim tmpdoc As NotesDocument
Dim firms As NotesView
Dim v As Variant
Set uidoc1 = ws.CurrentDocument
agentshortname = uidoc1.FieldGetText("AgentShortName")
Set db = ns.CurrentDatabase
Set tmpdoc = db.CreateDocument
tmpdoc.agentshortname = agentshortname
v = Evaluate(|@right(@dblookup("";"";"(firms)";agentshortname;2);"|+"|"+|");|,tmpdoc)
Set uidoc2 = ws.ComposeDocument("","","ContactForm")
Call uidoc2.FieldSetText("ContactAgent",agentshortname)
Call uidoc2.FieldSetText("ContactAgentID",v(0))
Call uidoc2.FieldSetText("parentdocid",v(0))
End Sub

В рабочем окне выдает ошибку "Variant does not contain a container" Хотя форма после этого создается и во виюхе по ней видно, но с другой стороны не дает связи с главной формой
 

morpheus

скриптописец
07.08.2006
3 915
1
#3
Для: Kron
Возможно ошибка здесь
Call uidoc2.FieldSetText("ContactAgentID",v(0))
Call uidoc2.FieldSetText("parentdocid",v(0))

но puks прав - в какой строке ругаеться дебагер?