Public Class KundAnl
    Public Shared ID As Integer
 
    Private Sub TblKundeBindingNavigatorSaveItem_Click(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      TblKundeBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.TblKundeBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.KdAnlDetDataset)
 
    End Sub
 
    Private Sub KundAnl_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle 
        ' "KdAnlDetDataset.qryAnlSB". Sie können sie bei Bedarf verschieben 
        ' oder entfernen.
        Me.QryAnlSBTableAdapter.Fill(Me.KdAnlDetDataset.qryAnlSB)
        'TODO: Diese Codezeile lädt Daten in die Tabelle 
        ' "KdAnlDetDataset.tblAnlage". Sie können sie bei Bedarf verschieben 
        ' oder entfernen.
        Me.TblAnlageTableAdapter.Fill(Me.KdAnlDetDataset.tblAnlage)
        'TODO: Diese Codezeile lädt Daten in die Tabelle 
        ' "KdAnlDetDataset.qryAnlWVA". Sie können sie bei Bedarf verschieben 
        ' oder entfernen.
        Me.QryAnlWVATableAdapter.Fill(Me.KdAnlDetDataset.qryAnlWVA)
        'TODO: Diese Codezeile lädt Daten in die Tabelle 
        ' "KdAnlDetDataset.tblKunde". Sie können sie bei Bedarf verschieben 
        ' oder entfernen.
        Me.TblKundeTableAdapter.Fill(Me.KdAnlDetDataset.tblKunde)
 
    End Sub
 
    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles ToolStripButton1.Click
        Me.QryAnlWVABindingSource.EndEdit()
        Me.QryAnlSBBindingSource.EndEdit()
        If Me.QryAnlSBBindingSource.Position > -1 Or _
          Me.QryAnlWVABindingSource.Position > -1 Then
            'Get the current product row
            Dim row As KdAnlDetDataset.tblAnlageRow
            row = CType(CType(Me.TblAnlageBindingSource.Current, _
              DataRowView).Row, KdAnlDetDataset.tblAnlageRow)
            'Open the product detail form passing the dataset and the product ID
            Select Case row.Anlage_Art
                Case "WVA"
                    Dim frm As New AnlWVA(Me.KdAnlDetDataset, row.AnlageID)
                    frm.Show()
                Case "SB"
                    Dim frm As New AnlSB(Me.KdAnlDetDataset, row.AnlageID)
                    frm.Show()
            End Select
            ID = row.KundeID
        End If
    End Sub
 
    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles ToolStripButton2.Click
        Dim KundAuft As New KundAuft()
        KundAuft.kundID = ID
        KundAuft.Show()
    End Sub
End Class

Public Class KundAuft
 
    Private Sub TblKundeBindingNavigatorSaveItem_Click(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      TblKundeBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.TblKundeBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.KdAuftDetDataSet)
 
    End Sub
 
    Private Sub KundAuft_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle 
        ' "KdAuftDetDataSet.tblAuftrag". Sie können sie bei Bedarf verschieben 
        ' oder entfernen.
        Me.TblAuftragTableAdapter.Fill(Me.KdAuftDetDataSet.tblAuftrag)
        'TODO: Diese Codezeile lädt Daten in die Tabelle 
        ' "KdAuftDetDataSet.tblKunde". Sie können sie bei Bedarf verschieben 
        ' oder entfernen.
        Me.TblKundeTableAdapter.Fill(Me.KdAuftDetDataSet.tblKunde)
    End Sub
    Public Property kundID() As Integer
        Get
            Return Me.ID
        End Get
        Set(ByVal value As Integer)
            Me.ID = value
        End Set
    End Property
End Class