Private Sub GridZusatzfelderChemAN()
 
 
        Dim TxtbColumn As New DataGridViewTextBoxColumn
 
 
        With TxtbColumn
            .HeaderText = ""
            .Name = "-"
 
 
 
        End With
 
        dgCehemAn.Columns.Insert(3, TxtbColumn)

Private Sub dgPruefChemAN()
 
 
        'Feldinhalte prüfen z.B. wenn Zelle 2 leer ist lösche in Zelle 3 den "-"
        For Each Row As DataGridViewRow In dgCehemAn.Rows
            If IsDBNull(Row.Cells(2).Value) OrElse Row.Cells(2).Value Is "" Then
 
                Row.Cells(3).Value = "TEST"
            Else
                Row.Cells(3).Value = "-"
            End If
        Next
 
    End Sub

Gruss
VIVAX

}
}
}

1:0 für Visual Basic.NET