Erro na Soma de Coluna em Datagrid

[Chamuanza]

Boa Pessoal

Estou com um erro numa aplicação pessoal na soma de Coluna em DataGrid

O operador '+' não está definido para tipo 'Decimal' e tipo 'DBNull'.

Junto código da rotina que estou a utilizar

O Campo correspondente na BD Access está defenido como Moeda

Agradeço desde já uma ajuda

 Private Sub SomaColuna()

        'Somar a coluna de Despesa e Receita
        Dim SOMA As Decimal
        '  Dim Soma1 As Decimal
        'Dim Corretor As Decimal


        For Each coluna As DataGridViewRow In MilleniumVáriosDataGridView.Rows

            SOMA = SOMA + coluna.Cells(5).Value

            'Soma1 = Soma1 + coluna.Cells(3).Value
        Next

        Label3.Text = SOMA

        Label3.Text = Microsoft.VisualBasic.Format(Decimal.Parse(SOMA), "##,##0.00 €")

    End Sub

 

[Andrepereira9]

Boas

Experimenta assim

Private Sub SomaColuna()
  
  'Somar a coluna de Despesa e Receita
  Dim SOMA As Decimal
  'Dim Soma1 As Decimal
  'Dim Corretor As Decimal
  
  For Each coluna As DataGridViewRow In MilleniumVáriosDataGridView.Rows
	'Verifica se a célula não está vazia e não é uma linha nova
   	If Not coluna.IsNewRow Then
		Dim valor = coluna.Cells(5).Value
   
   		If Not IsDBNull(valor) AndAlso Not String.IsNullOrEmpty(valor.ToString()) Then
   			SOMA += Convert.ToDecimal(valor)
        End If
	End If
  Next
  
  Label3.Text = Microsoft.VisualBasic.Format(Decimal.Parse(SOMA), "##,##0.00 €")

End Sub

 

Edited April 4, 2025 at 08:00 PM by Andrepereira9

[Chamuanza]

Obrigado pela atenção e pela dica, funciona