[Resolvido] Erro com código (retorno nulo)

[jcbiker]

Tenho este código,

Dim categories = From p In context.ARMAZEM _
															 Where p.IdCODIGO = .Id
															 Group p By p.IdCODIGO Into Group _
															 Select Quant = Group.Sum(Function(p) p.Quant)

					 If IsNothing(categories.FirstOrDefault.Value) Then
					 Else
						 arm = categories.FirstOrDefault.Value
					 End If

que quando faz a pesquisa e se não existir nada na base com aquele id da-me este erro:

- Nullable object must have a value.

🙂 Alguem me pode ajudar?

[veaoum]

Try
	categories.FirstOrDefault.Value
	 arm = categories.FirstOrDefault.Value
Catch ex As Exception
End Try

Exprimenta assim.

[jcbiker]

Está resolvido.

A solução:

If categories.FirstOrDefault.HasValue Then
						 arm = categories.FirstOrDefault.Value
					 Else
						 arm = 0
					 End If

Obrigado