Private Sub Button_Open_Report_Click
Dim returnCode As Int
Try
Dim reportName As String = reportFileNamesList.Get(selectedReportIndex)
Dim subReportDir As String = File.DirData("nmcollector/Reports") & MainPage.pathSeparator
Dim sqlConnectionString As String = File.Combine(File.DirData("nmcollector"),"nmcswDB.sqlite")
'setup link to Report Wrapper
Dim jo As JavaObject
jo.InitializeStatic("net.nmcollector.reportwrapper.ReportWrapper")
'jo.InitializeNewInstance("net.nmcollector.reportwrapper.ReportWrapper", Null)
returnCode = jo.RunMethod("openReport", Array(Array As String(sqlConnectionString, subReportDir, reportName, selectedCollectionId, selectedItemId)))
Log("call to reports returnCode = " & returnCode)
Catch
Log("Open Report, error = [" & LastException & "]")
'Wait For (xui.MsgboxAsync(LastException, "Error")) Msgbox_Result (Result As Int)
Dim sf As Object = xui.Msgbox2Async(LastException, "Error", "okay", "", "", Null)
Wait For (sf) Msgbox_Result (Result As Int)
End Try
End Sub