AJUDA COM IDEIA DE COMO FAZER DAR CERTO

KURTGU 29/08/2015 00:37:10
#450655
Mais o Objeto Agente na Primeira Sheet Existe...
KERPLUNK 29/08/2015 00:42:34
#450656
Faça uma depuração, use a Watch window para ver o que está indo para cada objeto.
KURTGU 29/08/2015 01:22:25
#450659
Por algum motivo ele nao me tras nada na janela Watch seria desta forma ?
KURTGU 29/08/2015 01:25:50
#450660
DS2T 29/08/2015 04:33:31
#450667
Citação:

:
Agora se eu tiro o tratamento que voce passou ai acima da horas apontadas e deixo desta forma...

Private _totalHorasApontadas As Int32
Public Property TotalHorasApontadas() As Int32
Get
Return _totalHorasApontadas
End Get
Set(ByVal value As Int32)
_totalHorasApontadas = value
End Set
End Property

Recebo este erro...




O que está acontecendo é que o valor da sua célula no DataRow está vindo DBNull, porque não foi encontrado no banco de dados.
Basta você fazer uma verificação, antes de atribuir o valor:

IF NOT Convert.IsDbNull(dr(9)) THEN 
            item.TotalHorasApontadas = dr(9)
             _return.Apontamentos.Add(item)
END IF


Resumindo: Se o valor não for encontrado, ele não vai adicionar à coleção de Apontamentos.
KURTGU 29/08/2015 09:34:28
#450671
DS2T Este erro ja tinha conseguido arrumar somente Este que nao conseguir ainda...Passei a noite toda, tentando localizar ele sempre me retorna este erro...
JABA 29/08/2015 12:20:40
#450676
Citação:

dim agente as Apontamento = DirectCast(unidade.Apontamentos.FirstOrDefault(function(x) x.cargo = [Ô]AGENTE COMUNITÁRIO DE SAÚDE[Ô]), Apontamento)



KURTGU, esse erro está acontecendo porque o codigo acima não está trazendo ninguém e o seu objeto agente está ficando vazio.
KURTGU 29/08/2015 13:49:58
#450679
JABA O Problema tem sido este nao estou conseguindo, fazer ele quando nao tiver o Cargo na sheet adiciona 0 Ao Listview...
JABA 29/08/2015 14:09:09
#450680 
dim agente as Apontamento = DirectCast(unidade.Apontamentos.FirstOrDefault(function(x)  x.cargo = [Ô]AGENTE COMUNITÁRIO DE SAÚDE[Ô]), Apontamento)

if agente is Nothing then
  un.SubItems.Add(0)
else
  un.SubItems.Add(agente.TotalHorasApontadas)
end if
KURTGU 29/08/2015 14:38:36
#450681
Cara que Raiva eu fiz isso uma 200 vezes e essa desgraca de VB nao aceitou sempre me retornava o mesmo, Agora ele aceita e da certo PUTA QUE RAIVA.... JABA CARA VLW Era Somente isso, JURO POR DEUS QUE TINHA FEITO DA MESMA FORMA QUE VOCE FEZ E ME APRESENTAVA O mesmo erro...
Página 3 de 3 [30 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar