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
Cristóvão

Cristóvão

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar