'
        'FormDetail
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(292, 273)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.DeleteButton)
        Me.Controls.Add(Me.OKButton)
        Me.Controls.Add(Me.CancelButton)
        Me.Controls.Add(Me.TextBox4)
        Me.Controls.Add(Me.TextBox3)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.DownButton)
        Me.Controls.Add(Me.UpButton)
        Me.Controls.Add(Me.UpdateButton)
        Me.Name = "FormDetail"
        Me.Text = "Form1"
        Me.ResumeLayout(False)
 
    End Sub
 
#End Region
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        TextBox1.DataBindings.Add("Text", FormMain.ds, "kunden.Id")
        TextBox2.DataBindings.Add("Text", FormMain.ds, "kunden.firma")
        TextBox3.DataBindings.Add("Text", FormMain.ds, "kunden.vorname")
        TextBox4.DataBindings.Add("Text", FormMain.ds, "kunden.nachname")
        ' usw...
    End Sub
 
    Private Sub UpButton_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles UpButton.Click
        FormMain.cm.Position -= 1
    End Sub
 
    Private Sub DownButton_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles DownButton.Click
        FormMain.cm.Position += 1
    End Sub
 
    Private Sub UpdateButton_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles UpdateButton.Click
        FormMain.cm.EndCurrentEdit()
        FormMain.ds.WriteXml(FormMain.file)
    End Sub
 
    Private Sub DeleteButton_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles DeleteButton.Click
        FormMain.dv.Delete(FormMain.cm.Position)
    End Sub
End Class