Public Class frmApplAbgleichDetails

    Public dtm As New DataTable
    Dim dtm1 As New DataTable
    Dim dtm2 As New DataTable
    Dim dtm3 As New DataTable


    Dim bs1 As New BindingSource
    Dim bs2 As New BindingSource
    Dim bs3 As New BindingSource


    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub frmApplAbgleichDetails_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        dtm1 = dtm.Copy
        dtm2 = dtm.Copy
        dtm3 = dtm.Copy
        bs1.DataSource = dtm1
        bs2.DataSource = dtm2
        bs3.DataSource = dtm3
        DataGridView1.DataSource = bs1
        DataGridView2.DataSource = bs2
        DataGridView3.DataSource = bs3
        bs3.Filter = "Type=3"
        bs2.Filter = "Type=2"
        bs1.Filter = "Type=1"
        Me.DataGridView1.Columns(0).Width = 0
        Me.DataGridView1.Columns(2).Width = 0
        Me.DataGridView1.Columns(3).Width = 0
        Me.DataGridView1.Columns(4).Width = 0

        Me.DataGridView2.Columns(0).Width = 0
        Me.DataGridView2.Columns(2).Width = 0
        Me.DataGridView2.Columns(3).Width = 0
        Me.DataGridView2.Columns(4).Width = 0

        Me.DataGridView3.Columns(0).Width = 0


    End Sub
End Class