Amigos, por favor una ayuda:
Tengo el siguiente código:
Código vb:
Ver originalPrivate Sub btnPendiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPendiente.Click
vTotal = 0
vMes = cmbMeses.SelectedItem
vAno = cmbAno.SelectedItem
Try
Sql = "SELECT SUM(monto) As TOTAL from meses where status='ACTIVO' and mesactual= '" & vMes & "' and ano= " & vAno & ""
cmd = New OleDbCommand(Sql, con)
dread = cmd.ExecuteReader()
While dread.Read
vTotal = dread("TOTAL")
txtPendiente.Text = String.Format("{0:n2}", vTotal)
End While
dread.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "", MessageBoxButtons.OK)
Finally
End Try
End Sub
El problema radica en que si hay registros válidos (al menos uno) funciona perfecto pero si no existen registros y el TOTAL es 0, da el siguiente error:
La conversión del tipo "DBNULL" en tipo INTEGER no es válida
Por favor, ¿como puedo prevenir que si TOTAL es Cero se salga de la rutina sin hacer nada?
He intentado varias cosas pero ninguna me funciona.
Gracias por su ayuda. Es muy urgente para mi.