The runtime has encountered a fatal error. The address of the error was at 0x70db226e, on thread 0x9eb0. The error code is 0xc0000005.

[jytorres]

Hi there

I don't know what is causing this error in my application. The error pops out when I trying to run a report. The weird thing is when I open another project (different project name and location) all reports runs just fine, the error its just happens in this particular project. This is the error:

Managed Debugging Assistant 'FatalExecutionEngineError' has detected a problem in 'E:\Users\jyuikeng\Documents\Visual Studio 2015\Projects\KORTICK-JobTicketsSQL\bin\Debug\JobTickets.vshost.exe'.
Additional information: The runtime has encountered a fatal error. The address of the error was at 0x70db226e, on thread 0x9eb0. The error code is 0xc0000005. This error may be a bug in the CLR or in the unsafe or non-verifiable portions of user code. Common sources of this bug include user marshaling errors for COM-interop or PInvoke, which may corrupt the stack.


Below is my code.



Imports System.Data
Imports System.Diagnostics
Imports Microsoft.Reporting.WinForms
Imports System.IO

PublicClassForm2Dim params(0) As Microsoft.Reporting.WinForms.ReportParameterDim params1(0) As Microsoft.Reporting.WinForms.ReportParameterDim params2(0) As Microsoft.Reporting.WinForms.ReportParameterDim params3(0) As Microsoft.Reporting.WinForms.ReportParameterDim params4(0) As Microsoft.Reporting.WinForms.ReportParameterDim params5(0) As Microsoft.Reporting.WinForms.ReportParameterDim params6(0) As Microsoft.Reporting.WinForms.ReportParameterDim params7(0) As Microsoft.Reporting.WinForms.ReportParameterDim params8(0) As Microsoft.Reporting.WinForms.ReportParameterDim params9(0) As Microsoft.Reporting.WinForms.ReportParameterDim params10(0) As Microsoft.Reporting.WinForms.ReportParameterDim params11(0) As Microsoft.Reporting.WinForms.ReportParameterDim params12(0) As Microsoft.Reporting.WinForms.ReportParameterDim params13(0) As Microsoft.Reporting.WinForms.ReportParameterDim params14(0) As Microsoft.Reporting.WinForms.ReportParameterPrivateSub Form2_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load
Me.JobTicketsDataSet.EnforceConstraints =False'TODO: This line of code loads data into the 'JobTicketsDataSet.tmp_WipJobAllMat' table. You can move, or remove it, as needed.
tmp_WipJobAllMatTableAdapter.Fill(JobTicketsDataSet.tmp_WipJobAllMat)

'TODO: This line of code loads data into the 'JobTicketsDataSet.tmp_BomNarration' table. You can move, or remove it, as needed.
tmp_BomNarrationTableAdapter.Fill(JobTicketsDataSet.tmp_BomNarration)

'TODO: This line of code loads data into the 'JobTicketsDataSet.tmp_WipJobAllLabQ' table. You can move, or remove it, as needed.
tmp_WipJobAllLabQTableAdapter.Fill(JobTicketsDataSet.tmp_WipJobAllLabQ)

'TODO: This line of code loads data into the 'JobTicketsDataSet.tmp_WipJobAllLab' table. You can move, or remove it, as needed.
tmp_WipJobAllLabTableAdapter.Fill(JobTicketsDataSet.tmp_WipJobAllLab)

'TODO: This line of code loads data into the 'JobTicketsDataSet.JobTimeTrack' table. You can move, or remove it, as needed.
JobTimeTrackTableAdapter.Fill(JobTicketsDataSet.JobTimeTrack)

cJobNum = frmPrintJobs.kTxtJobNum.Text

If NumForm =1Then
nQtyToMake = frmPrintJobs.KtxtQty.Text
Else'nQtyToMake = frmStartJobs.KtxtQty.TextEndIf'WipJobAllLabQBindingSource.Filter = ("MID(Job,8,8) = '" & cJobNum & "' ")
tmp_WipJobAllLabQBindingSource.Filter = ("Job = '"& cJobNum &"' ")
JobTimeTrackBindingSource.Filter = ("JobNumber = '"& cJobNum &"' ")

params(0) =New Microsoft.Reporting.WinForms.ReportParameter("PartNumber", cJobStockCode)
params1(0) =New Microsoft.Reporting.WinForms.ReportParameter("Description", cJobDescrip)
params2(0) =New Microsoft.Reporting.WinForms.ReportParameter("JobNumber", cJobNum)
params3(0) =New Microsoft.Reporting.WinForms.ReportParameter("Qty2Make", nQtyToMake)
params4(0) =New Microsoft.Reporting.WinForms.ReportParameter("StartDate", cJobStart)
params5(0) =New Microsoft.Reporting.WinForms.ReportParameter("ShipDate", cJobShipping)
params6(0) =New Microsoft.Reporting.WinForms.ReportParameter("NarrationNumber", nAutoNarrCode)
params7(0) =New Microsoft.Reporting.WinForms.ReportParameter("AKCodePart", AKCode)
params8(0) =New Microsoft.Reporting.WinForms.ReportParameter("UnitMess", cUnitOM)
params9(0) =New Microsoft.Reporting.WinForms.ReportParameter("QtyBackOrder", nBackOrder)
params10(0) =New Microsoft.Reporting.WinForms.ReportParameter("EstimQty", nEstimQty)
params11(0) =New Microsoft.Reporting.WinForms.ReportParameter("PackValues", cStrPack)
params12(0) =New Microsoft.Reporting.WinForms.ReportParameter("PrintUser", cNameUser)
params13(0) =New Microsoft.Reporting.WinForms.ReportParameter("QtyManufactured", nxQTYManuf)
params14(0) =New Microsoft.Reporting.WinForms.ReportParameter("QtyBalance", nOustandingQty)

Me.ReportViewer1.LocalReport.SetParameters(params)
Me.ReportViewer1.LocalReport.SetParameters(params1)
Me.ReportViewer1.LocalReport.SetParameters(params2)
Me.ReportViewer1.LocalReport.SetParameters(params3)
Me.ReportViewer1.LocalReport.SetParameters(params4)
Me.ReportViewer1.LocalReport.SetParameters(params5)
Me.ReportViewer1.LocalReport.SetParameters(params6)
Me.ReportViewer1.LocalReport.SetParameters(params7)
Me.ReportViewer1.LocalReport.SetParameters(params8)
Me.ReportViewer1.LocalReport.SetParameters(params9)
Me.ReportViewer1.LocalReport.SetParameters(params10)
Me.ReportViewer1.LocalReport.SetParameters(params11)
Me.ReportViewer1.LocalReport.SetParameters(params12)
Me.ReportViewer1.LocalReport.SetParameters(params13)
Me.ReportViewer1.LocalReport.SetParameters(params14)

Me.ReportViewer1.SetDisplayMode(Microsoft.Reporting.WinForms.DisplayMode.PrintLayout)
Me.ReportViewer1.ShowZoomControl =FalseMe.ReportViewer1.ShowPrintButton =TrueMe.ReportViewer1.ZoomMode = Microsoft.Reporting.WinForms.ZoomMode.FullPage

Me.ReportViewer1.RefreshReport()
Me.ReportViewer1.RefreshReport()
EndSub


End class




The error appears in the line:

Me.ReportViewer1.LocalReport.SetParameters(params)

Any help it will be much appreciated


Thank you

Jorge

Continue reading...