请教在一个表单提交之前执行代理，但代理不能放在webquerysave事件中。
请教在一个表单提交之前执行代理，但代理不能放在webquerysave事件中。 document.forms[0].CopyToConfig.onclick(); //执行代理 document.forms[0].submit(); //提交表单 为什么我的表单没有提交呢？ 代理代码如下： Dim se As New NotesSession Dim item As Notesitem Dim item1 As Notesitem Dim item2 As Notesitem Dim item3 As Notesitem Dim item4 As Notesitem Dim item5 As Notesitem Dim db As notesdatabase Dim setupdb As notesdatabase Dim tempdb As notesdatabase Dim doc As notesdocument Dim newdoc As notesdocument Dim UNID As String Set db =se.CurrentDatabase Set doc =se.DocumentContext ' Call doc.save(True,False) Set setupdb =se.GetDatabase(db.server, "nnpsoa/config.nsf" ) ' Set tempdb = se.GetDatabase(db.server, "nnpsoa/tz.nsf" ) Set newdoc = setupdb.CreateDocument newdoc.form = "ConfigCreateNewNotify" ' Set doc = tempdb.GetDocumentByUNID("5F6B1D30F4F103F7482573870031536F") Set item =doc.GetFirstItem("topic") Set item1 =doc.GetFirstItem("outin_1") Set item2 =doc.GetFirstItem("reader") Set item3 =doc.GetFirstItem("DocId") Set item4 =doc.GetFirstItem("date") Set item5 =doc.GetFirstItem("tz_unit") Call newdoc.RemoveItem("topic") Call newdoc.CopyItem(item,"topic") Call newdoc.RemoveItem("outin_1") Call newdoc.CopyItem(item1,"outin_1") Call newdoc.RemoveItem("reader") Call newdoc.CopyItem(item2,"reader") Call newdoc.RemoveItem("DocId") Call newdoc.CopyItem(item3,"DocId") Call newdoc.RemoveItem("date") Call newdoc.CopyItem(item4,"date") Call newdoc.RemoveItem("tz_unit") Call newdoc.CopyItem(item5,"tz_unit") Call newdoc.save(True,False)
