(Rechtschreibfehler urheberrechtlich geschützt)

Private Sub DataGridView1_EditingControlShowing1(sender As Object, e As _
  DataGridViewEditingControlShowingEventArgs) Handles _
  DataGridView1.EditingControlShowing
        If DataGridView1.CurrentCell.ColumnIndex <> _
        DataSet1.DtDaten.DateianhangColumn.Ordinal Then
            Return
        End If
 
        Dim btn As New Button
        With btn
            .Dock = DockStyle.Right
            .Name = "btnOpen"
            .Text = "..."
            .Width = 25
        End With
 
        If Not DataGridView1.EditingPanel.Controls.ContainsKey(btn.Name) Then
            DataGridView1.EditingPanel.Controls.Add(btn)
        End If
        AddHandler btn.Click, AddressOf btn_Click
        btn.BringToFront()
    End Sub
 
    Private Sub btn_Click(sender As Object, e As EventArgs)
        MessageBox.Show("Ereignis")
    End Sub

If DataGridView1.CurrentCell.ColumnIndex <> _
        DataSet1.DtDaten.DateianhangColumn.Ordinal Then
            Return
        End If

Dim sButtonName As String = "btnOpen"
 
If DataGridView1.CurrentCell.ColumnIndex = _
  DataSet1.DtDaten.DateianhangColumn.Ordinal Then
    Dim btn As New Button
    With btn
        .Dock = DockStyle.Right
        .Name = sButtonName
        .Text = "..."
        .Width = 25
    End With
 
    If Not DataGridView1.EditingPanel.Controls.ContainsKey(btn.Name) Then
        DataGridView1.EditingPanel.Controls.Add(btn)
    End If
 
    AddHandler btn.Click, AddressOf btn_click
    btn.BringToFront()
 
Else
 
    If DataGridView1.EditingPanel.Controls.ContainsKey(sButtonName) Then
        DataGridView1.EditingPanel.Controls.RemoveByKey(sButtonName)
    End If
 
End If

Private Sub dgvKunde_CellValidating1(sender As Object, e As _
  DataGridViewCellValidatingEventArgs) Handles dgvKunde.CellValidating

If dgvStammdaten.CurrentCell.ColumnIndex = _
  DataSet1.Kunde.EingabepfadColumn.Ordinal Then
            Dim Eingabepfad As String = ""
            Dim openFileDialogEingabepfad As New OpenFileDialog()
            With openFileDialogEingabepfad
                .InitialDirectory = "C:\"
                .RestoreDirectory = True
                .Multiselect = False
            End With
            If openFileDialogEingabepfad.ShowDialog() = _
              System.Windows.Forms.DialogResult.OK Then
                Eingabepfad = openFileDialogEingabepfad.FileName
            End If
            Dim BsEingabepfad = DirectCast(DirectCast( _
              KundeBindingSource.Current, DataRowView).Row, DtStammdatenRow)
            BsEingabepfad.Eingabepfad = Eingabepfad
            'MessageBox.Show(Eingabepfad)

Dim row = DirectCast(DirectCast(KundeBindingSource.Current, DataRowView).Row, _
  DtStammdatenRow)
row.Eingabepfad = Eingabepfad
row.EndEdit()

Private Sub DataGridView1_CellValidating1(sender As Object, e As _
  DataGridViewCellValidatingEventArgs) Handles DataGridView1.CellValidating