Module mdlLoadTable
    Public qryMaterial As New SVIZ.LabToolDataSet.qryMaterialDataTable
    Public QryMaterialBindingSource As System.Windows.Forms.BindingSource
    Public QryMaterialTableAdapter As _
      SVIZ.LabToolDataSetTableAdapters.qryMaterialTableAdapter
 
    Public qryWorkcenter As New SVIZ.LabToolDataSet.qryWorkcenterDataTable
    Public QryWorkcenterBindingSource As System.Windows.Forms.BindingSource
    Public QryWorkcenterTableAdapter As _
      SVIZ.LabToolDataSetTableAdapters.qryWorkcenterTableAdapter
 
    Public tblRechte As New SVIZ.LabToolDataSet.tblRechteDataTable
    Public TblRechteBindingSource As System.Windows.Forms.BindingSource
    Public TblRechteTableAdapter As _
      SVIZ.LabToolDataSetTableAdapters.tblRechteTableAdapter
 
    Public tblSite As New SVIZ.LabToolDataSet.tblSiteDataTable
    Public TblSiteBindingSource As System.Windows.Forms.BindingSource
    Public TblSiteTableAdapter As _
      SVIZ.LabToolDataSetTableAdapters.tblSiteTableAdapter
 
 
    u. s. w. insgesamt 12 Adapter
 
    Public Sub LoadTB()
 
        QryMaterialBindingSource = New System.Windows.Forms.BindingSource
        QryMaterialTableAdapter = New _
          SVIZ.LabToolDataSetTableAdapters.qryMaterialTableAdapter
        QryMaterialTableAdapter.Fill(qryMaterial)
 
        QryWorkcenterBindingSource = New System.Windows.Forms.BindingSource
        QryWorkcenterTableAdapter = New _
          SVIZ.LabToolDataSetTableAdapters.qryWorkcenterTableAdapter
        QryWorkcenterTableAdapter.Fill(qryWorkcenter)
 
        TblRechteBindingSource = New System.Windows.Forms.BindingSource
        TblRechteTableAdapter = New _
          SVIZ.LabToolDataSetTableAdapters.tblRechteTableAdapter
        TblRechteTableAdapter.Fill_UserRechte(tblRechte)
 
        TblSiteBindingSource = New System.Windows.Forms.BindingSource
        TblSiteTableAdapter = New _
          SVIZ.LabToolDataSetTableAdapters.tblSiteTableAdapter
        TblSiteTableAdapter.Fill(tblSite)
 
    u. s. w. insgesamt 12 Adapter
    End Sub
 
End Module

Sub Unselect()
        Try
            dgvSVIZ.DataSource = QryMaterialBindingSource
            dgvWC.DataSource = QryWorkcenterBindingSource
            dgvSVIZ.DataSource = QryMaterialBindingSource
            QryMaterialBindingSourceMat = QryMaterialBindingSource
            QrySVIZBindingSourceBatch = QrySVIZBindingSource
            QrySVIZBindingSourceLot = QrySVIZBindingSource
            cmbMaterial.DataSource = QryMaterialBindingSourceMat
            cmbBatch.DataSource = QrySVIZBindingSourceBatch
            cmbLot.DataSource = QrySVIZBindingSourceLot
 
QryMaterialBindingSourceMat.Filter = "Site = '" & _
  cmbSite.SelectedItem.Row.Site & "' AND Jahr = " & CInt( _
  cmbJahr.SelectedItem.ToString) & ""
 
QrySVIZBindingSourceBatch.Filter = "Site = '" & cmbSite.SelectedItem.Row.Site & _
  "' AND Jahr = " & CInt(cmbJahr.SelectedItem.ToString) & ""
 
QrySVIZBindingSourceLot.Filter = "Site = '" & cmbSite.SelectedItem.Row.Site & _
  "' AND Jahr = " & CInt(cmbJahr.SelectedItem.ToString) & ""
 
        Catch ex As Exception
            MsgBox("Fehler: " & ex.Message)
        End Try
        My.Settings.bSperr = False
    End Sub

dgvSVIZ.DataSource = QrySVIZ_AllSample_Closed_no_UDBindingSource
 
QrySVIZ_AllSample_Closed_no_UDBindingSource.Filter = "Site = '" & _
  cmbSite.SelectedItem.Row.Site & "' AND Jahr = " & CInt( _
  cmbJahr.SelectedItem.ToString)