Erro de atualização query utilizando Entity Framework e vb.net
05/07/2017
0
Estou precisando de uma ajuda para resolver este problema. Realizo a consulta abaixo no evento change de uma combobox, para carregar algumas textbox. Na primeira rodada tudo vai bam. Mas quando mudo a consulta não atualiza. O que estou fazendo de errado?
Private Sub cmb_MatPriGusaLiq_EditValueChanged(sender As Object, e As EventArgs) Handles cmb_MatPriGusaLiq.EditValueChanged
Try
Dim ID_MatPri As Integer = Nothing
ID_MatPri = CInt(cmb_MatPriGusaLiq.EditValue)
Dim Q_MatGusLiq As IQueryable(Of TB_MateriaPrima_ThermoLD) = (From p In EF_SSThermoLD.TB_MateriaPrima_ThermoLD
Where p.ID_MatPrima = ID_MatPri
Select p)
Dim CQSelecionada As List(Of TB_MateriaPrima_ThermoLD) = Q_MatGusLiq.ToList()
If Q_MatGusLiq.Count > 0 Then
For Each n In Q_MatGusLiq
txt_TeorCGusa.Text = CSng(n.TeorC)
txt_TeorMnGusa.Text = CSng(n.TeorMn)
txt_TeorSiGusa.Text = CSng(n.TeorSi)
txt_TeorPGusa.Text = CSng(n.TeorP)
txt_TeorSGusa.Text = CSng(n.TeorS)
txt_TeorFeGusa.Text = CSng(n.TeorFe)
Exit For
Next
Else
Throw New System.Exception("Consulta de materia prima retornou vazia.")
End If
Catch ex As Exception
MsgBox(ex.Message, vbOKOnly)
End Try
End Sub
Private Sub cmb_MatPriGusaLiq_EditValueChanged(sender As Object, e As EventArgs) Handles cmb_MatPriGusaLiq.EditValueChanged
Try
Dim ID_MatPri As Integer = Nothing
ID_MatPri = CInt(cmb_MatPriGusaLiq.EditValue)
Dim Q_MatGusLiq As IQueryable(Of TB_MateriaPrima_ThermoLD) = (From p In EF_SSThermoLD.TB_MateriaPrima_ThermoLD
Where p.ID_MatPrima = ID_MatPri
Select p)
Dim CQSelecionada As List(Of TB_MateriaPrima_ThermoLD) = Q_MatGusLiq.ToList()
If Q_MatGusLiq.Count > 0 Then
For Each n In Q_MatGusLiq
txt_TeorCGusa.Text = CSng(n.TeorC)
txt_TeorMnGusa.Text = CSng(n.TeorMn)
txt_TeorSiGusa.Text = CSng(n.TeorSi)
txt_TeorPGusa.Text = CSng(n.TeorP)
txt_TeorSGusa.Text = CSng(n.TeorS)
txt_TeorFeGusa.Text = CSng(n.TeorFe)
Exit For
Next
Else
Throw New System.Exception("Consulta de materia prima retornou vazia.")
End If
Catch ex As Exception
MsgBox(ex.Message, vbOKOnly)
End Try
End Sub
Cristóvão
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)