J
Jon
It appears that application.exit isn't doing what I think it should be
doing. The line oRpt.SetupReportDatabase() causes an except and the
exception is caught and the messagebox with the error message pops up, as it
should. However, the application does not exit, and the MsgBox("Making
params") is executed from the next block of code and execution continues on.
Am I doing something wrong? Shouldn't application.exit immediately stop the
program. Thanks for any insight!
I have the following code:
Try
MsgBox("Enter create report")
oRpt = New MSIReporting.MSICrystal(strNewReport,
DBName, AppSettings("WOServer"), AppSettings("WOLogin"),
AppSettings("WOPassword"))
MsgBox("Exit create report")
MsgBox("Set up report DB")
oRpt.SetupReportDatabase(DBName,
AppSettings("WOServer"), AppSettings("WOLogin"), AppSettings("WOPassword"))
MsgBox("Done report db")
Catch ex As Exception
MsgBox("APPEXIT " + ex.Message)
Application.Exit()
End Try
Try
MsgBox("Making params")
ReDim oCRParamsName(1, 1)
oCRParamsName(0, 0) = "WO"
oCRParamsName(0, 1) = drRow(3)
doing. The line oRpt.SetupReportDatabase() causes an except and the
exception is caught and the messagebox with the error message pops up, as it
should. However, the application does not exit, and the MsgBox("Making
params") is executed from the next block of code and execution continues on.
Am I doing something wrong? Shouldn't application.exit immediately stop the
program. Thanks for any insight!
I have the following code:
Try
MsgBox("Enter create report")
oRpt = New MSIReporting.MSICrystal(strNewReport,
DBName, AppSettings("WOServer"), AppSettings("WOLogin"),
AppSettings("WOPassword"))
MsgBox("Exit create report")
MsgBox("Set up report DB")
oRpt.SetupReportDatabase(DBName,
AppSettings("WOServer"), AppSettings("WOLogin"), AppSettings("WOPassword"))
MsgBox("Done report db")
Catch ex As Exception
MsgBox("APPEXIT " + ex.Message)
Application.Exit()
End Try
Try
MsgBox("Making params")
ReDim oCRParamsName(1, 1)
oCRParamsName(0, 0) = "WO"
oCRParamsName(0, 1) = drRow(3)