Zobrazení podformuláře na základě stavu nějakého pole
Výpočet pro vypočtené podformuláře se provádí v události Open, takže jakmile formulář je otevřen, nemůžeme změnit podformulář na základě stavu nějakého pole.
Wednesday, 18. August 2010
- Vytvořte formulář (může být výchozím)
- Vytvoření požadovaného pole či akce
- Chceme otevřít podformulář založen na výběru hodnoty daného pole (tlačítka atp.)
- Vložte následující kód do onExit (onClick), popřípadě do akce.
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim new_uidoc As NotesUIDocument
Dim doc NotesDocument
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Call doc.computewithform (True, False)
Call Workspace.SetTargetFrame ("")
Set new_uidoc = Workspace.editdocument (True, doc)
uidoc.document.saveoptions = "0"
Call uidoc.close
'Obnovit dokument
Call new_uidoc.reload
Call new_uidoc.refresh
Dim uidoc As NotesUIDocument
Dim new_uidoc As NotesUIDocument
Dim doc NotesDocument
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Call doc.computewithform (True, False)
Call Workspace.SetTargetFrame ("")
Set new_uidoc = Workspace.editdocument (True, doc)
uidoc.document.saveoptions = "0"
Call uidoc.close
'Obnovit dokument
Call new_uidoc.reload
Call new_uidoc.refresh
Tento kód mě zatím za žádných okolností nezklamal.