基本运行时错误。参数不是可选的
BASIC runtime error. Argument is not optional
我无法弄清楚问题出在哪里
Sub Reportstart(oEvent As Object)
Dim oFeld As Object
Dim oForm As Object
Dim oDocument As Object
Dim oDocView As Object
Dim Arg()
oField = oEvent.Source.Model
oForm = oField.Parent
sURL = oForm.DataSourceName
oDocument = StarDesktop.loadComponentFromURL(sURL, "C:\Users\Nameless\Desktop\Latest.odb", 0, Arg() )
oDocView = oDocument.CurrentController.Frame.ContainerWindow
oDocView.Visible = False
oDocument.getCurrentController().connect
Wait(100)
oDocument.ReportDocuments.getByName("report_student").open
oDocument.close(True)
End Sub'
错误是基本运行时错误。
参数不是可选的。
Reportstart
需要一个参数 oEvent
,而您执行它的方式没有给子例程任何参数。
宏设计为从控件的事件处理程序调用,例如,基本窗体上的按钮的 Execute action
。也许您从 LibreOffice Basic IDE 执行了子例程。
相关:https://ask.libreoffice.org/en/question/192344/argument-is-not-optional/
我无法弄清楚问题出在哪里
Sub Reportstart(oEvent As Object)
Dim oFeld As Object
Dim oForm As Object
Dim oDocument As Object
Dim oDocView As Object
Dim Arg()
oField = oEvent.Source.Model
oForm = oField.Parent
sURL = oForm.DataSourceName
oDocument = StarDesktop.loadComponentFromURL(sURL, "C:\Users\Nameless\Desktop\Latest.odb", 0, Arg() )
oDocView = oDocument.CurrentController.Frame.ContainerWindow
oDocView.Visible = False
oDocument.getCurrentController().connect
Wait(100)
oDocument.ReportDocuments.getByName("report_student").open
oDocument.close(True)
End Sub'
错误是基本运行时错误。 参数不是可选的。
Reportstart
需要一个参数 oEvent
,而您执行它的方式没有给子例程任何参数。
宏设计为从控件的事件处理程序调用,例如,基本窗体上的按钮的 Execute action
。也许您从 LibreOffice Basic IDE 执行了子例程。
相关:https://ask.libreoffice.org/en/question/192344/argument-is-not-optional/