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