' Show Details Form
    Private Sub DataGrid_DoubleClick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles DataGrid1.DoubleClick
        Dim dg As DataGrid = CType(sender, DataGrid)
        Dim mp As Point = Cursor.Position
        Dim cp As Point = dg.PointToClient(mp)
        Dim hti As DataGrid.HitTestInfo = dg.HitTest(cp.X, cp.Y)
 
        If hti.Type = DataGrid.HitTestType.RowHeader Then
            Dim f As New UpdateOrders
            f.BindingContext = Me.BindingContext
            f.cm = cm1
            f.ShowDialog()
            f.Dispose()
        End If
    End Sub

    Private dv As DataView
    Public cm As CurrencyManager
 
    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        dv = CType(cm.List, DataView)
        CustomerID.DataBindings.Add("Text", dv, "CustomerID")
        OrderID.DataBindings.Add("Text", dv, "OrderID")
        RequiredDate.DataBindings.Add("Value", dv, "RequiredDate")
        ShippedDate.DataBindings.Add("Value", dv, "ShippedDate")
        ShipAddress.DataBindings.Add("Text", dv, "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
 
    Private Sub Up_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Up.Click
        cm.Position -= 1
    End Sub
 
    Private Sub Down_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Down.Click
        cm.Position += 1
    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