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
 
                DataGridViewButtonColumn.Row.Cells(3).Text = "-"        ' <---- 
                ' ?????????????
 
                Row.Cells
            End If
        Next
 
    End Sub

Private Sub GridZusatzfelderChemAN()
 
        'Körnung
        ' Initialize the button column.
        Dim buttonColumn As New DataGridViewButtonColumn
 
        With buttonColumn
            .HeaderText = ""
            .Name = "-"
            .Text = "-"
 
            ' Use the Text property for the button text for all cells rather
            ' than using each cell's value as the text for its own button.
            .UseColumnTextForButtonValue = True
        End With
 
        ' Add the button column to the control.
        dgCehemAn.Columns.Insert(3, buttonColumn)
 
        Dim buttonColumn1 As New DataGridViewButtonColumn
 
        With buttonColumn1
            .HeaderText = ""
            .Name = "%"
            .Text = "%"
 
            ' Use the Text property for the button text for all cells rather
            ' than using each cell's value as the text for its own button.
            .UseColumnTextForButtonValue = True
        End With
 
        ' Add the button column to the control.
        dgCehemAn.Columns.Insert(5, buttonColumn1)
 
    End Sub

Gruss
VIVAX

}
}
}

1:0 für Visual Basic.NET