Private Sub dt_ColumnChanging(ByVal sender As Object, ByVal e As _
      System.Data.DataColumnChangeEventArgs) Handles dt.ColumnChanging
        If e.Column.ColumnName = "ShipName" Then
            If String.IsNullOrEmpty(e.ProposedValue) Then
                Throw New ArgumentException("Cannot be empty", "ShipName", _
                  Nothing)
            End If
        End If
    End Sub

    Private Sub OrdersDataGridView_CellEndEdit(ByVal sender As Object, ByVal e _
      As System.Windows.Forms.DataGridViewCellEventArgs) Handles _
      OrdersDataGridView.CellEndEdit
        OrdersDataGridView.Rows(e.RowIndex).ErrorText = String.Empty
    End Sub
 
    Private Sub OrdersDataGridView_DataError(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles _
      OrdersDataGridView.DataError
        If e.Exception Is Nothing Then Return
        OrdersDataGridView.Rows(e.RowIndex).ErrorText = e.Exception.Message
        e.Cancel = True
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist