You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
45 lines
1.3 KiB
45 lines
1.3 KiB
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 |