S
Steven Spencer \(Spinalogic\)
I have an error and I would say this is at compiler level in the VB.net
language
"If Not SQLConnectionString = "" Then
'If ds.Tables("Images") Is Nothing Then 'to avoid repeating when
re-showing same image
If ParametersChanged Then
If Not ds.Tables("Images") Is Nothing Then
ds.Tables("Images").Clear()
'If ds.Tables("ImageTypes") Is Nothing Then
MsgBox("ds.Tables(ImageTypes) Is Nothing") 'ds.Tables("ImageTypes").Clear()
If Not ds.Tables("PatientsDisplayImageTypes") Is Nothing
Then ds.Tables("PatientsDisplayImageTypes").Clear()
If m_ImageTypeID.Equals(Guid.Empty) Then
'there is no data. Clear the image tables.
RefreshDisplay()
Else
GetData()
daImages.Fill(ds, "Images")
'daImageTypes.Fill(ds, "ImageTypes")
daPatientsDisplayImageTypes.Fill(ds,
"PatientsDisplayImageTypes")
GotoLastImage()
GetImageRegistrationPoints()
If (ds.Tables("Images").Rows.Count = 0) Then
Me.noTypeError.Left = (Me.Width() / 2) -
(Me.noTypeError.Width() / 2)
Me.noTypeError.Visible = True
Else
Me.noTypeError.Visible = False
'RefreshDisplay()
End If
End If
End If
End If
"
The "ParametersChanged" variable gets set to false.
The next line of code executed is then the final "else" which sets
Me.noTypeError.Visible = False
THEN the code generates an exception and gets thrown up to the try catch
around this line.
Try
ShowImage(Me.m_PatientID, Me.m_ImageTypeID)
Catch ex As Exception
ErrorSender.SendError("ClinicalImageViewer - Finished", ex)
End Try
The only problem is THERE IS NO EXCEPTION. The exception is unable to be
queried in the IDE at ALL. The specific message given is: ex.ToString
'ex.ToString' is not declared or the module containing it is not loaded in
the debugging session.
Please tell me that I'm not going crazy. If its obvious then point it out
and call me an idiot ;P.
Seriously though, its frustrating when there are errors like this when the
code is correct....
language
"If Not SQLConnectionString = "" Then
'If ds.Tables("Images") Is Nothing Then 'to avoid repeating when
re-showing same image
If ParametersChanged Then
If Not ds.Tables("Images") Is Nothing Then
ds.Tables("Images").Clear()
'If ds.Tables("ImageTypes") Is Nothing Then
MsgBox("ds.Tables(ImageTypes) Is Nothing") 'ds.Tables("ImageTypes").Clear()
If Not ds.Tables("PatientsDisplayImageTypes") Is Nothing
Then ds.Tables("PatientsDisplayImageTypes").Clear()
If m_ImageTypeID.Equals(Guid.Empty) Then
'there is no data. Clear the image tables.
RefreshDisplay()
Else
GetData()
daImages.Fill(ds, "Images")
'daImageTypes.Fill(ds, "ImageTypes")
daPatientsDisplayImageTypes.Fill(ds,
"PatientsDisplayImageTypes")
GotoLastImage()
GetImageRegistrationPoints()
If (ds.Tables("Images").Rows.Count = 0) Then
Me.noTypeError.Left = (Me.Width() / 2) -
(Me.noTypeError.Width() / 2)
Me.noTypeError.Visible = True
Else
Me.noTypeError.Visible = False
'RefreshDisplay()
End If
End If
End If
End If
"
The "ParametersChanged" variable gets set to false.
The next line of code executed is then the final "else" which sets
Me.noTypeError.Visible = False
THEN the code generates an exception and gets thrown up to the try catch
around this line.
Try
ShowImage(Me.m_PatientID, Me.m_ImageTypeID)
Catch ex As Exception
ErrorSender.SendError("ClinicalImageViewer - Finished", ex)
End Try
The only problem is THERE IS NO EXCEPTION. The exception is unable to be
queried in the IDE at ALL. The specific message given is: ex.ToString
'ex.ToString' is not declared or the module containing it is not loaded in
the debugging session.
Please tell me that I'm not going crazy. If its obvious then point it out
and call me an idiot ;P.
Seriously though, its frustrating when there are errors like this when the
code is correct....