Código:
Private Sub celdas_vacias(ByRef grid As DataTable)
flag_vacio = False 'indica si encuentra por lo menos un campo vacio en el datatable
Dim n_col As Integer = grid.Columns.Count
Dim n_row As Integer = grid.Rows.Count
For j = 0 To n_row - 1
For i = 2 To n_col - 1
Dim valor As String = CStr(grid.Rows(j)(i).ToString) ' Coloco esto porque tengo campo numéricos también
'If IsDBNull(valor) Then ' eh intentado esta validacion
'If String.IsNullOrEmpty(valor) Then ' y esta tambien
If valor = "" Then
DgRepo.Rows(grid.Rows(j)(0) - 1).DefaultCellStyle.BackColor = Drawing.Color.Brown
Lblmsj.Text = "No puede dejar campos vacios"
flag_vacio = True
' Exit For
End If
valor = ""
Next
Next
End Sub


