PROCURA NA BASE DE DADOS E COMPARACAO

BRUNODOPREDIO 02/05/2011 14:39:38
#372983

Olá pessoal, tenho notafiscal_produto e lote de tabelas primeiro faço um select para encontrar os itens da notafiscal e depois faço um select para encontrar o status do lote que está atrelado a notaficsal.

Private Function Checa_Status_Produto()

Using db As New CNS_CEEntities
For i = 0 To Me.dgvLotes.Rows.Count - 1
Dim nf = (From n In db.NOTAFISCAL_PRODUTO.Include([Ô]NOTAFISCAL[Ô]) _
Where n.IdNF = txtNumDoc.Text Select n).First()


Dim lote = (From l In db.LOTE.Include([Ô]NOTAFISCAL_PRODUTO[Ô]) _
Where l.NOTAFISCAL_PRODUTO.IdNF = nf.IdNF _
And l.NOTAFISCAL_PRODUTO.IdNFProduto = nf.IdNFProduto Select l).First()

If lote.Status = [Ô]ESTOQUE[Ô] Then Return False
Next
End Using

Return True

End Function

o problema é que no segundo select com a opção .first ele diz que a sequencia não contem elementos mesmo eu verificando na tabela que contém.....


Alguma sugestão??????

valeuuuu!!!!!!