Private Sub DataGrid_DoubleClick(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles DataGrid1.DoubleClick, DataGrid2.DoubleClick
        Dim dg As DataGrid = CType(sender, DataGrid)
 
        ' [Zeile prüfen usw]
 
        Dim f As New UpdateOrders
        f.BindingContext = Me.BindingContext
        Dim cm As CurrencyManager = CType(Me.BindingContext(dg.DataSource, _
          dg.DataMember), CurrencyManager)
        f.cm = cm
        f.dv = dv1 ' Dataview
        f.ShowDialog()
        f.Dispose()
 
    End Sub

 
 
    Public dv As DataView
    Public cm As CurrencyManager
 
    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        CustomerID.DataBindings.Add("Text", dv, "CustomersToOrders.CustomerID")
        OrderID.DataBindings.Add("Text", dv, "CustomersToOrders.OrderID")
        RequiredDate.DataBindings.Add("Value", dv, _
          "CustomersToOrders.RequiredDate")
        ShippedDate.DataBindings.Add("Value", dv, _
        "CustomersToOrders.ShippedDate")
        ShipAddress.DataBindings.Add("Text", dv, _
        "CustomersToOrders.ShipAddress")
    End Sub
 
    Protected Overrides Sub OnClosing(ByVal e As _
      System.ComponentModel.CancelEventArgs)
        If Me.DialogResult = DialogResult.OK Then
            cm.EndCurrentEdit()
        Else
            cm.CancelCurrentEdit()
        End If
    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