Private Sub DataTable_an_DataGridView_binden(vNr as integer)
  Dim Abfrage As String = "lfdnr >= " & vnr
 
  'dataGridSpalten werden per Code manuell erzeugt, die Spalten und Zeilen 
  ' formatiert
  dgvZeile.DataSource = pDT_Layout.Select(Abfrage)
 
  dgvZeile.Refresh()
end sub

Private Sub DataRows_an_DATAGridView_binden(vNr as integer)
 Dim Abfrage As String = "lfdnr >= " & vnr
 dim DR_Auswahl() as DataRow
 
 DR_Auswahl = pDT_Layout.Select(Abfrage)
 dgvZeile.DataSource  = DR_Auswahl
 dgvZeile.Refresh()
end sub