Public Class Vertrieb
 
 
 
 
    Private Sub Vertrieb_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Me.Anf_beurteilungTableAdapter.Fill(Me.DataCenterDS.anf_beurteilung)
        CheckBox1.Checked = False
        CheckBox2.Checked = False
        ButtonX3.Enabled = False
 
        Try
            Me.ContactTableAdapter.Fill(Me.DataCenterDS.Contact)
            Me.VplTableAdapter.Fill(Me.DataCenterDS.Vpl)
            Form1.ProgressBarX1.Value = 12
            Me.VgitTableAdapter.Fill(Me.DataCenterDS.Vgit)
            Form1.ProgressBarX1.Value = 17
            Me.VregionTableAdapter.Fill(Me.DataCenterDS.Vregion)
            Form1.ProgressBarX1.Value = 23
            Me.ProzessTableAdapter.Fill(Me.DataCenterDS.prozess)
            Form1.ProgressBarX1.Value = 25
            Me.ProduktTableAdapter.Fill(Me.DataCenterDS.produkt)
            Form1.ProgressBarX1.Value = 30
            Me.LandTableAdapter.Fill(Me.DataCenterDS.land)
            Form1.ProgressBarX1.Value = 35
            Me.OrtTableAdapter.Fill(Me.DataCenterDS.ort)
            Form1.ProgressBarX1.Value = 40
            Me.BrancheTableAdapter.Fill(Me.DataCenterDS.Branche)
            Form1.ProgressBarX1.Value = 50
            Me.GbTableAdapter.Fill(Me.DataCenterDS.gb)
            Form1.ProgressBarX1.Value = 60
            Me.ZuschlagTableAdapter.Fill(Me.DataCenterDS.zuschlag)
            Form1.ProgressBarX1.Value = 70
            Me.StatusTableAdapter.Fill(Me.DataCenterDS.status)
            Form1.ProgressBarX1.Value = 80
            Me.FirmaTableAdapter.Fill(Me.DataCenterDS.firma)
            Form1.ProgressBarX1.Value = 90
        Catch ex As Exception
        End Try
 
        If Form1.vertrieb_ds_neu = "neu" Then
            Try
                Me.ProjektBindingSource.AddNew()
            Catch ex As Exception
            End Try
 
            Try
                Me.Anf_beurteilungBindingSource.AddNew()
            Catch ex As Exception
            End Try
 
            DateTimeInput1.Value = Today
            Me.ComboBoxEx10.SelectedValue = Form1.ver_user.ToString
            Me.ComboBoxEx10.Enabled = False
            Form1.ProgressBarX1.Value = 100
 
        Else
 
            Try
                Me.ProjektTableAdapter.Fill(Me.DataCenterDS.projekt)
                Me.ProjektBindingSource.Filter = "[P_id] = '" & _
                  Form1.vertriebs_id.ToString & "'"
                Form1.ProgressBarX1.Value = 100
            Catch ex As Exception
            End Try
        End If
    End Sub
 
    End Class