对 WCF 的 WPF 服务调用无法访问已处置的对象
WPF Service Call to WCF Cannot access a disposed object
我们有一个 WPF 应用，returns 来自 WCF 服务的数据。
下面的代码会间歇性地抛出一个 'Cannot access as disposed object' 错误 - 通常在一个更新序列已经成功完成之后。
即使关闭服务并在每次调用时启动一个新服务也无济于事。有什么想法吗？
谢谢...
Private Sub Reports_BalanceSheet_DoWork(sender As Object, e As DoWorkEventArgs)
Try
Dim vUpdate As New UpdateDelegate(AddressOf Reports_BalanceSheet_UpdateDB_Delegate)
Dim vName As String = ReportName
vService = New Service1Client
Dim vID As Integer = 0
If NewRecord = True Then
Dim vRows As Integer = vService.ReturnScalarInteger("SELECT COUNT(Form_ID) From Balance_Sheet_Templates", Current_HOA_ID)
If vRows > 0 Then
vID = NullInteger(vService.ReturnScalarInteger("SELECT MAX(Form_ID) FROM Balance_Sheet_Templates", Current_HOA_ID))
End If
vID += 1
'Save the form name
strSQL = "INSERT INTO Balance_Sheet_Templates(Form_ID, Category_Type, Category_ID, Form_Name) VALUES ("
strSQL += "'" & vID & "', "
strSQL += "'1', "
strSQL += "'1', "
strSQL += "'" & vName & "')"
If vService.InsertDataHOA(strSQL, "Reports_BalanceSheet_Page 2466 " & Current_HOA_Name, Current_HOA_ID) = False Then
IsError = True
Dim Error1() As Object = {"There was an error updating the record"}
Dispatcher.BeginInvoke(vUpdate, New Object() {Error1})
Exit Sub
End If
Else
vID = FormID
strSQL = "DELETE Balance_Sheet_Templates WHERE Form_ID = " & vID
If vService.InsertDataHOA(strSQL, "Reports_BalanceSheet_Page 2455 " & Current_HOA_Name, Current_HOA_ID) = False Then
IsError = True
Dim Error1() As Object = {"There was an error updating the record"}
Dispatcher.BeginInvoke(vUpdate, New Object() {Error1})
Exit Sub
End If
End If
Dim Update1() As Object = {"Saving the report defaults... Please wait..."}
Dispatcher.BeginInvoke(vUpdate, New Object() {Update1})
For Each Row As DataRow In ReportDT.Rows
strSQL = "INSERT INTO Balance_Sheet_Templates (Form_ID, Category_Type, Category_ID, Form_Name) VALUES ("
strSQL += "'" & vID & "', "
strSQL += "'1', "
strSQL += "'" & Row("ID") & "', "
strSQL += "'" & vName & "')"
If vService.InsertDataHOA(strSQL, "Reports_BalanceSheet_Page 2417 " & Current_HOA_Name, Current_HOA_ID) = False Then
IsError = True
Dim Error1() As Object = {"There was an error updating the record"}
Dispatcher.BeginInvoke(vUpdate, New Object() {Error1})
Exit Sub
End If
Next
Dim Update2() As Object = {"Saving the revenue categories... Please wait..."}
Dispatcher.BeginInvoke(vUpdate, New Object() {Update2})
For Each Row As DataRow In RevenueDT.Rows
strSQL = "INSERT INTO Balance_Sheet_Templates (Form_ID, Category_Type, Category_ID, Position, Key_String) VALUES ("
strSQL += "'" & vID & "', "
strSQL += "'3', "
strSQL += "'" & Row("ID") & "', "
strSQL += "'" & Row("Position") & "', "
strSQL += "'" & SubmitText(Row("Name")) & "')"
If vService.InsertDataHOA(strSQL, "Reports_BalanceSheet_Page 2434 " & Current_HOA_Name, Current_HOA_ID) = False Then
IsError = True
Dim Error1() As Object = {"There was an error updating the record"}
Dispatcher.BeginInvoke(vUpdate, New Object() {Error1})
Exit Sub
End If
Next
Dim Update3() As Object = {"Saving the revenue data... Please wait..."}
Dispatcher.BeginInvoke(vUpdate, New Object() {Update3})
For Each Row As DataRow In RevenueNomDT.Rows
strSQL = "INSERT INTO Balance_Sheet_Templates (Form_ID, Category_Type, Category_ID, Position, Cat_Name_ID, Nom_Code, Nom_Name) VALUES ("
strSQL += "'" & vID & "', "
strSQL += "'4', "
strSQL += "'" & Row("ID") & "', "
strSQL += "'" & Row("Position") & "', "
strSQL += "'" & Row("CatID") & "', "
strSQL += "'" & Row("NomCode") & "', "
strSQL += "'" & SubmitText(Row("NomName")) & "')"
If vService.InsertDataHOA(strSQL, "Reports_BalanceSheet_Page 2453 " & Current_HOA_Name, Current_HOA_ID) = False Then
IsError = True
Dim Error1() As Object = {"There was an error updating the record"}
Dispatcher.BeginInvoke(vUpdate, New Object() {Error1})
Exit Sub
End If
Next
Dim Update4() As Object = {"Saving the expenses categories... Please wait..."}
Dispatcher.BeginInvoke(vUpdate, New Object() {Update4})
For Each Row As DataRow In ExpensesDT.Rows
strSQL = "INSERT INTO Balance_Sheet_Templates (Form_ID, Category_Type, Category_ID, Position, Key_String) VALUES ("
strSQL += "'" & vID & "', "
strSQL += "'5', "
strSQL += "'" & Row("ID") & "', "
strSQL += "'" & Row("Position") & "', "
strSQL += "'" & SubmitText(Row("Name")) & "')"
If vService.InsertDataHOA(strSQL, "Reports_BalanceSheet_Page 2472 " & Current_HOA_Name, Current_HOA_ID) = False Then
IsError = True
Dim Error1() As Object = {"There was an error updating the record"}
Dispatcher.BeginInvoke(vUpdate, New Object() {Error1})
Exit Sub
End If
Next
Dim Update5() As Object = {"Saving the expenses data... Please wait..."}
Dispatcher.BeginInvoke(vUpdate, New Object() {Update5})
For Each Row As DataRow In ExpensesNomDT.Rows
strSQL = "INSERT INTO Balance_Sheet_Templates (Form_ID, Category_Type, Category_ID, Position, Cat_Name_ID, Nom_Code, Nom_Name) VALUES ("
strSQL += "'" & vID & "', "
strSQL += "'6', "
strSQL += "'" & Row("ID") & "', "
strSQL += "'" & Row("Position") & "', "
strSQL += "'" & Row("CatID") & "', "
strSQL += "'" & Row("NomCode") & "', "
strSQL += "'" & SubmitText(Row("NomName")) & "') "
If vService.InsertDataHOA(strSQL, "Reports_BalanceSheet_Page 2491 " & Current_HOA_Name, Current_HOA_ID) = False Then
IsError = True
Dim Error1() As Object = {"There was an error updating the record"}
Dispatcher.BeginInvoke(vUpdate, New Object() {Error1})
Exit Sub
End If
Next
Dim Update6() As Object = {"Saving the assets categories... Please wait..."}
Dispatcher.BeginInvoke(vUpdate, New Object() {Update6})
For Each Row As DataRow In ResIncomeDT.Rows
strSQL = "INSERT INTO Balance_Sheet_Templates (Form_ID, Category_Type, Category_ID, Position, Key_String) VALUES ("
strSQL += "'" & vID & "', "
strSQL += "'7', "
strSQL += "'" & Row("ID") & "', "
strSQL += "'" & Row("Position") & "', "
strSQL += "'" & SubmitText(Row("Name")) & "')"
If vService.InsertDataHOA(strSQL, "Reports_BalanceSheet_Page 2509 " & Current_HOA_Name, Current_HOA_ID) = False Then
IsError = True
Dim Error1() As Object = {"There was an error updating the record"}
Dispatcher.BeginInvoke(vUpdate, New Object() {Error1})
Exit Sub
End If
Next
Dim Update7() As Object = {"Saving the assets data... Please wait..."}
Dispatcher.BeginInvoke(vUpdate, New Object() {Update7})
For Each Row As DataRow In ResIncNomDT.Rows
strSQL = "INSERT INTO Balance_Sheet_Templates (Form_ID, Category_Type, Category_ID, Position, Cat_Name_ID, Nom_Code, Nom_Name) VALUES ("
strSQL += "'" & vID & "', "
strSQL += "'8', "
strSQL += "'" & Row("ID") & "', "
strSQL += "'" & Row("Position") & "', "
strSQL += "'" & Row("CatID") & "', "
strSQL += "'" & Row("NomCode") & "', "
strSQL += "'" & Row("NomName") & "') "
If vService.InsertDataHOA(strSQL, "Reports_BalanceSheet_Page 2529 " & Current_HOA_Name, Current_HOA_ID) = False Then
IsError = True
Dim Error1() As Object = {"There was an error updating the record"}
Dispatcher.BeginInvoke(vUpdate, New Object() {Error1})
Exit Sub
End If
Next
Dim Update8() As Object = {"Saving the liability categories... Please wait..."}
Dispatcher.BeginInvoke(vUpdate, New Object() {Update8})
For Each Row As DataRow In ResExpensesDT.Rows
strSQL = "INSERT INTO Balance_Sheet_Templates (Form_ID, Category_Type, Category_ID, Position, Key_String) VALUES ("
strSQL += "'" & vID & "', "
strSQL += "'9', "
strSQL += "'" & Row("ID") & "', "
strSQL += "'" & Row("Position") & "', "
strSQL += "'" & SubmitText(Row("Name")) & "')"
If vService.InsertDataHOA(strSQL, "Reports_BalanceSheet_Page 2548 " & Current_HOA_Name, Current_HOA_ID) = False Then
IsError = True
Dim Error1() As Object = {"There was an error updating the record"}
Dispatcher.BeginInvoke(vUpdate, New Object() {Error1})
Exit Sub
End If
Next
Dim Update9() As Object = {"Saving the liability data... Please wait..."}
Dispatcher.BeginInvoke(vUpdate, New Object() {Update9})
For Each Row As DataRow In ResExpNomDT.Rows
strSQL = "INSERT INTO Balance_Sheet_Templates (Form_ID, Category_Type, Category_ID, Position, Cat_Name_ID, Nom_Code, Nom_Name) VALUES ("
strSQL += "'" & vID & "', "
strSQL += "'10', "
strSQL += "'" & Row("ID") & "', "
strSQL += "'" & Row("Position") & "', "
strSQL += "'" & Row("CatID") & "', "
strSQL += "'" & Row("NomCode") & "', "
strSQL += "'" & Row("NomName") & "') "
If vService.InsertDataHOA(strSQL, "Reports_BalanceSheet_Page 2566 " & Current_HOA_Name, Current_HOA_ID) = False Then
IsError = True
Dim Error1() As Object = {"There was an error updating the record"}
Dispatcher.BeginInvoke(vUpdate, New Object() {Error1})
Exit Sub
End If
Next
Catch ex As Exception
EmailError(ex, False)
IsError = True
Finally
If Not vService Is Nothing Then
vService.Close()
vService = Nothing
End If
End Try
End Sub
Private Sub Reports_BalanceSheet_WorkCompleted(sender As Object, e As RunWorkerCompletedEventArgs)
Try
If IsError = True Then
AppBoxError("There was an error updating the record!")
Exit Sub
End If
PageStatusBarLoaded(Reports_BalanceSheet_Grid, "Template was successfully saved...")
PageStatusBarRightChangeText(Reports_BalanceSheet_Grid, "Template updated...")
Dim SaveUpdateButton As Button = Reports_BalanceSheet_Grid.FindName("BalanceSheet_SaveUpdateButton")
If NewRecord = True Then
SaveUpdateButton.IsEnabled = False
SaveUpdateButton.Content = ReturnToolBarImageGrey("Record_Insert.png")
End If
Catch ex As Exception
EmailError(ex)
End Try
End Sub
Private Sub Reports_BalanceSheet_UpdateDB_Delegate(ByVal x() As Object)
Try
PageStatusBarRightChangeText(Reports_BalanceSheet_Grid, x(0).ToString)
Catch ex As Exception
EmailError(ex)
End Try
End Sub
返回错误
Cannot access a disposed object.
对象名称：'System.ServiceModel.Channels.HttpsChannelFactory`1+HttpsRequestChannel[System.ServiceModel.Channels.IRequestChannel]'.
服务器堆栈跟踪：
在 System.ServiceModel.Channels.CommunicationObject.ThrowIfDisposedOrNotOpen()
at System.ServiceModel.Channels.HttpChannelFactory`1.HttpRequestChannel.HttpChannelRequest.SendRequest(Message消息，TimeSpan超时)
at System.ServiceModel.Channels.RequestChannel.Request(Message消息，TimeSpan超时)
at System.ServiceModel.Dispatcher.RequestChannelBinder.Request(Message消息，TimeSpan超时)
在 System.ServiceModel.Channels.ServiceChannel.Call（字符串操作、布尔单向、ProxyOperationRuntime 操作、Object[] ins、Object[] outs、TimeSpan 超时）
在 System.ServiceModel.Channels.ServiceChannelProxy.InvokeService（IMethodCallMessage 方法调用，ProxyOperationRuntime 操作）
在 System.ServiceModel.Channels.ServiceChannelProxy.Invoke（IMessage 消息）
在 [0] 重新抛出异常：
在 System.Runtime.Remoting.Proxies.RealProxy.HandleReturnMessage（IMessage reqMsg，IMessage retMsg）
在 System.Runtime.Remoting.Proxies.RealProxy.PrivateInvoke(MessageData& msgData, Int32 类型)
在 HOA_Manager_Client_04.ServiceReference1.IService1.InsertDataHOA（字符串 strSQL、字符串 LineNo、字符串 HOAID）
在 HOA_Manager_Client_04.ServiceReference1.Service1Client.InsertDataHOA（字符串 strSQL、字符串 LineNo、字符串 HOAID）
在 HOA_Manager_Client_04.Reports_BalanceSheet_Page.Reports_BalanceSheet_DoWork（对象发送者，DoWorkEventArgs e）
在整个应用程序中，每个页面都定义了 vService
Private strSQL As String
Private vService As Service1Client
并在需要时创建为新建。显然有些东西也在同时使用和关闭它所以我刚刚创建了一个全新的服务
Private Sub Reports_BalanceSheet_DoWork(sender As Object, e As DoWorkEventArgs)
Dim vService1 As New Service1Client
Try
Dim vUpdate As New UpdateDelegate(AddressOf Reports_BalanceSheet_UpdateDB_Delegate)
Dim vName As String = ReportName
' vService = New Service1Client
并将每个更新实例更改为那个 - 到目前为止它似乎正在运行。奇怪的是，这是整个应用程序中唯一抛出此错误的地方
我们有一个 WPF 应用，returns 来自 WCF 服务的数据。
下面的代码会间歇性地抛出一个 'Cannot access as disposed object' 错误 - 通常在一个更新序列已经成功完成之后。
即使关闭服务并在每次调用时启动一个新服务也无济于事。有什么想法吗？
谢谢...
Private Sub Reports_BalanceSheet_DoWork(sender As Object, e As DoWorkEventArgs)
Try
Dim vUpdate As New UpdateDelegate(AddressOf Reports_BalanceSheet_UpdateDB_Delegate)
Dim vName As String = ReportName
vService = New Service1Client
Dim vID As Integer = 0
If NewRecord = True Then
Dim vRows As Integer = vService.ReturnScalarInteger("SELECT COUNT(Form_ID) From Balance_Sheet_Templates", Current_HOA_ID)
If vRows > 0 Then
vID = NullInteger(vService.ReturnScalarInteger("SELECT MAX(Form_ID) FROM Balance_Sheet_Templates", Current_HOA_ID))
End If
vID += 1
'Save the form name
strSQL = "INSERT INTO Balance_Sheet_Templates(Form_ID, Category_Type, Category_ID, Form_Name) VALUES ("
strSQL += "'" & vID & "', "
strSQL += "'1', "
strSQL += "'1', "
strSQL += "'" & vName & "')"
If vService.InsertDataHOA(strSQL, "Reports_BalanceSheet_Page 2466 " & Current_HOA_Name, Current_HOA_ID) = False Then
IsError = True
Dim Error1() As Object = {"There was an error updating the record"}
Dispatcher.BeginInvoke(vUpdate, New Object() {Error1})
Exit Sub
End If
Else
vID = FormID
strSQL = "DELETE Balance_Sheet_Templates WHERE Form_ID = " & vID
If vService.InsertDataHOA(strSQL, "Reports_BalanceSheet_Page 2455 " & Current_HOA_Name, Current_HOA_ID) = False Then
IsError = True
Dim Error1() As Object = {"There was an error updating the record"}
Dispatcher.BeginInvoke(vUpdate, New Object() {Error1})
Exit Sub
End If
End If
Dim Update1() As Object = {"Saving the report defaults... Please wait..."}
Dispatcher.BeginInvoke(vUpdate, New Object() {Update1})
For Each Row As DataRow In ReportDT.Rows
strSQL = "INSERT INTO Balance_Sheet_Templates (Form_ID, Category_Type, Category_ID, Form_Name) VALUES ("
strSQL += "'" & vID & "', "
strSQL += "'1', "
strSQL += "'" & Row("ID") & "', "
strSQL += "'" & vName & "')"
If vService.InsertDataHOA(strSQL, "Reports_BalanceSheet_Page 2417 " & Current_HOA_Name, Current_HOA_ID) = False Then
IsError = True
Dim Error1() As Object = {"There was an error updating the record"}
Dispatcher.BeginInvoke(vUpdate, New Object() {Error1})
Exit Sub
End If
Next
Dim Update2() As Object = {"Saving the revenue categories... Please wait..."}
Dispatcher.BeginInvoke(vUpdate, New Object() {Update2})
For Each Row As DataRow In RevenueDT.Rows
strSQL = "INSERT INTO Balance_Sheet_Templates (Form_ID, Category_Type, Category_ID, Position, Key_String) VALUES ("
strSQL += "'" & vID & "', "
strSQL += "'3', "
strSQL += "'" & Row("ID") & "', "
strSQL += "'" & Row("Position") & "', "
strSQL += "'" & SubmitText(Row("Name")) & "')"
If vService.InsertDataHOA(strSQL, "Reports_BalanceSheet_Page 2434 " & Current_HOA_Name, Current_HOA_ID) = False Then
IsError = True
Dim Error1() As Object = {"There was an error updating the record"}
Dispatcher.BeginInvoke(vUpdate, New Object() {Error1})
Exit Sub
End If
Next
Dim Update3() As Object = {"Saving the revenue data... Please wait..."}
Dispatcher.BeginInvoke(vUpdate, New Object() {Update3})
For Each Row As DataRow In RevenueNomDT.Rows
strSQL = "INSERT INTO Balance_Sheet_Templates (Form_ID, Category_Type, Category_ID, Position, Cat_Name_ID, Nom_Code, Nom_Name) VALUES ("
strSQL += "'" & vID & "', "
strSQL += "'4', "
strSQL += "'" & Row("ID") & "', "
strSQL += "'" & Row("Position") & "', "
strSQL += "'" & Row("CatID") & "', "
strSQL += "'" & Row("NomCode") & "', "
strSQL += "'" & SubmitText(Row("NomName")) & "')"
If vService.InsertDataHOA(strSQL, "Reports_BalanceSheet_Page 2453 " & Current_HOA_Name, Current_HOA_ID) = False Then
IsError = True
Dim Error1() As Object = {"There was an error updating the record"}
Dispatcher.BeginInvoke(vUpdate, New Object() {Error1})
Exit Sub
End If
Next
Dim Update4() As Object = {"Saving the expenses categories... Please wait..."}
Dispatcher.BeginInvoke(vUpdate, New Object() {Update4})
For Each Row As DataRow In ExpensesDT.Rows
strSQL = "INSERT INTO Balance_Sheet_Templates (Form_ID, Category_Type, Category_ID, Position, Key_String) VALUES ("
strSQL += "'" & vID & "', "
strSQL += "'5', "
strSQL += "'" & Row("ID") & "', "
strSQL += "'" & Row("Position") & "', "
strSQL += "'" & SubmitText(Row("Name")) & "')"
If vService.InsertDataHOA(strSQL, "Reports_BalanceSheet_Page 2472 " & Current_HOA_Name, Current_HOA_ID) = False Then
IsError = True
Dim Error1() As Object = {"There was an error updating the record"}
Dispatcher.BeginInvoke(vUpdate, New Object() {Error1})
Exit Sub
End If
Next
Dim Update5() As Object = {"Saving the expenses data... Please wait..."}
Dispatcher.BeginInvoke(vUpdate, New Object() {Update5})
For Each Row As DataRow In ExpensesNomDT.Rows
strSQL = "INSERT INTO Balance_Sheet_Templates (Form_ID, Category_Type, Category_ID, Position, Cat_Name_ID, Nom_Code, Nom_Name) VALUES ("
strSQL += "'" & vID & "', "
strSQL += "'6', "
strSQL += "'" & Row("ID") & "', "
strSQL += "'" & Row("Position") & "', "
strSQL += "'" & Row("CatID") & "', "
strSQL += "'" & Row("NomCode") & "', "
strSQL += "'" & SubmitText(Row("NomName")) & "') "
If vService.InsertDataHOA(strSQL, "Reports_BalanceSheet_Page 2491 " & Current_HOA_Name, Current_HOA_ID) = False Then
IsError = True
Dim Error1() As Object = {"There was an error updating the record"}
Dispatcher.BeginInvoke(vUpdate, New Object() {Error1})
Exit Sub
End If
Next
Dim Update6() As Object = {"Saving the assets categories... Please wait..."}
Dispatcher.BeginInvoke(vUpdate, New Object() {Update6})
For Each Row As DataRow In ResIncomeDT.Rows
strSQL = "INSERT INTO Balance_Sheet_Templates (Form_ID, Category_Type, Category_ID, Position, Key_String) VALUES ("
strSQL += "'" & vID & "', "
strSQL += "'7', "
strSQL += "'" & Row("ID") & "', "
strSQL += "'" & Row("Position") & "', "
strSQL += "'" & SubmitText(Row("Name")) & "')"
If vService.InsertDataHOA(strSQL, "Reports_BalanceSheet_Page 2509 " & Current_HOA_Name, Current_HOA_ID) = False Then
IsError = True
Dim Error1() As Object = {"There was an error updating the record"}
Dispatcher.BeginInvoke(vUpdate, New Object() {Error1})
Exit Sub
End If
Next
Dim Update7() As Object = {"Saving the assets data... Please wait..."}
Dispatcher.BeginInvoke(vUpdate, New Object() {Update7})
For Each Row As DataRow In ResIncNomDT.Rows
strSQL = "INSERT INTO Balance_Sheet_Templates (Form_ID, Category_Type, Category_ID, Position, Cat_Name_ID, Nom_Code, Nom_Name) VALUES ("
strSQL += "'" & vID & "', "
strSQL += "'8', "
strSQL += "'" & Row("ID") & "', "
strSQL += "'" & Row("Position") & "', "
strSQL += "'" & Row("CatID") & "', "
strSQL += "'" & Row("NomCode") & "', "
strSQL += "'" & Row("NomName") & "') "
If vService.InsertDataHOA(strSQL, "Reports_BalanceSheet_Page 2529 " & Current_HOA_Name, Current_HOA_ID) = False Then
IsError = True
Dim Error1() As Object = {"There was an error updating the record"}
Dispatcher.BeginInvoke(vUpdate, New Object() {Error1})
Exit Sub
End If
Next
Dim Update8() As Object = {"Saving the liability categories... Please wait..."}
Dispatcher.BeginInvoke(vUpdate, New Object() {Update8})
For Each Row As DataRow In ResExpensesDT.Rows
strSQL = "INSERT INTO Balance_Sheet_Templates (Form_ID, Category_Type, Category_ID, Position, Key_String) VALUES ("
strSQL += "'" & vID & "', "
strSQL += "'9', "
strSQL += "'" & Row("ID") & "', "
strSQL += "'" & Row("Position") & "', "
strSQL += "'" & SubmitText(Row("Name")) & "')"
If vService.InsertDataHOA(strSQL, "Reports_BalanceSheet_Page 2548 " & Current_HOA_Name, Current_HOA_ID) = False Then
IsError = True
Dim Error1() As Object = {"There was an error updating the record"}
Dispatcher.BeginInvoke(vUpdate, New Object() {Error1})
Exit Sub
End If
Next
Dim Update9() As Object = {"Saving the liability data... Please wait..."}
Dispatcher.BeginInvoke(vUpdate, New Object() {Update9})
For Each Row As DataRow In ResExpNomDT.Rows
strSQL = "INSERT INTO Balance_Sheet_Templates (Form_ID, Category_Type, Category_ID, Position, Cat_Name_ID, Nom_Code, Nom_Name) VALUES ("
strSQL += "'" & vID & "', "
strSQL += "'10', "
strSQL += "'" & Row("ID") & "', "
strSQL += "'" & Row("Position") & "', "
strSQL += "'" & Row("CatID") & "', "
strSQL += "'" & Row("NomCode") & "', "
strSQL += "'" & Row("NomName") & "') "
If vService.InsertDataHOA(strSQL, "Reports_BalanceSheet_Page 2566 " & Current_HOA_Name, Current_HOA_ID) = False Then
IsError = True
Dim Error1() As Object = {"There was an error updating the record"}
Dispatcher.BeginInvoke(vUpdate, New Object() {Error1})
Exit Sub
End If
Next
Catch ex As Exception
EmailError(ex, False)
IsError = True
Finally
If Not vService Is Nothing Then
vService.Close()
vService = Nothing
End If
End Try
End Sub
Private Sub Reports_BalanceSheet_WorkCompleted(sender As Object, e As RunWorkerCompletedEventArgs)
Try
If IsError = True Then
AppBoxError("There was an error updating the record!")
Exit Sub
End If
PageStatusBarLoaded(Reports_BalanceSheet_Grid, "Template was successfully saved...")
PageStatusBarRightChangeText(Reports_BalanceSheet_Grid, "Template updated...")
Dim SaveUpdateButton As Button = Reports_BalanceSheet_Grid.FindName("BalanceSheet_SaveUpdateButton")
If NewRecord = True Then
SaveUpdateButton.IsEnabled = False
SaveUpdateButton.Content = ReturnToolBarImageGrey("Record_Insert.png")
End If
Catch ex As Exception
EmailError(ex)
End Try
End Sub
Private Sub Reports_BalanceSheet_UpdateDB_Delegate(ByVal x() As Object)
Try
PageStatusBarRightChangeText(Reports_BalanceSheet_Grid, x(0).ToString)
Catch ex As Exception
EmailError(ex)
End Try
End Sub
返回错误
Cannot access a disposed object.
对象名称：'System.ServiceModel.Channels.HttpsChannelFactory`1+HttpsRequestChannel[System.ServiceModel.Channels.IRequestChannel]'.
服务器堆栈跟踪： 在 System.ServiceModel.Channels.CommunicationObject.ThrowIfDisposedOrNotOpen() at System.ServiceModel.Channels.HttpChannelFactory`1.HttpRequestChannel.HttpChannelRequest.SendRequest(Message消息，TimeSpan超时) at System.ServiceModel.Channels.RequestChannel.Request(Message消息，TimeSpan超时) at System.ServiceModel.Dispatcher.RequestChannelBinder.Request(Message消息，TimeSpan超时) 在 System.ServiceModel.Channels.ServiceChannel.Call（字符串操作、布尔单向、ProxyOperationRuntime 操作、Object[] ins、Object[] outs、TimeSpan 超时） 在 System.ServiceModel.Channels.ServiceChannelProxy.InvokeService（IMethodCallMessage 方法调用，ProxyOperationRuntime 操作） 在 System.ServiceModel.Channels.ServiceChannelProxy.Invoke（IMessage 消息）
在 [0] 重新抛出异常： 在 System.Runtime.Remoting.Proxies.RealProxy.HandleReturnMessage（IMessage reqMsg，IMessage retMsg） 在 System.Runtime.Remoting.Proxies.RealProxy.PrivateInvoke(MessageData& msgData, Int32 类型) 在 HOA_Manager_Client_04.ServiceReference1.IService1.InsertDataHOA（字符串 strSQL、字符串 LineNo、字符串 HOAID） 在 HOA_Manager_Client_04.ServiceReference1.Service1Client.InsertDataHOA（字符串 strSQL、字符串 LineNo、字符串 HOAID） 在 HOA_Manager_Client_04.Reports_BalanceSheet_Page.Reports_BalanceSheet_DoWork（对象发送者，DoWorkEventArgs e）
在整个应用程序中，每个页面都定义了 vService
Private strSQL As String
Private vService As Service1Client
并在需要时创建为新建。显然有些东西也在同时使用和关闭它所以我刚刚创建了一个全新的服务
Private Sub Reports_BalanceSheet_DoWork(sender As Object, e As DoWorkEventArgs)
Dim vService1 As New Service1Client
Try
Dim vUpdate As New UpdateDelegate(AddressOf Reports_BalanceSheet_UpdateDB_Delegate)
Dim vName As String = ReportName
' vService = New Service1Client
并将每个更新实例更改为那个 - 到目前为止它似乎正在运行。奇怪的是，这是整个应用程序中唯一抛出此错误的地方