Private Sub Button_Open_Report_Click
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.InitializeNewInstance("net.nmcollector.reportwrapper.ReportWrapper", Null)
jo.RunMethodJO("main", Array(Array As String(sqlConnectionString, subReportDir, reportName, selectedCollectionId, selectedItemId)))
Catch
Log("Open Report, error = [" & LastException & "]")
Dim sf As Object = xui.Msgbox2Async(LastException, "Error", "okay", "", "", Null)
Wait For (sf) Msgbox_Result (Result As Int)
End Try
Log("why does program close when I close report viewer?")
End Sub