45 lines
1.5 KiB
VB.net
45 lines
1.5 KiB
VB.net
Public Class frmColumnsPrint
|
|
Public DS As DataSet
|
|
|
|
Private Sub frmColumnsPrint_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
FillPanel()
|
|
End Sub
|
|
|
|
Function FillPanel()
|
|
Dim dt As DataTable = Class1.OrderDataTableby(DS.Tables(0), "HOST ASC")
|
|
Dim i As Integer = 0
|
|
For Each ch As DataColumn In dt.Columns
|
|
|
|
Dim uscol As New uscntr_Columns
|
|
uscol.Label1.Text = ch.ToString
|
|
uscol.Location = New Point(0, i * uscol.Height)
|
|
Panel2.Controls.Add(uscol)
|
|
i = i + 1
|
|
Next
|
|
End Function
|
|
|
|
Private Sub btnAlleDeaktivieren_Click(sender As Object, e As EventArgs) Handles btnAlleDeaktivieren.Click
|
|
For Each uscol As uscntr_Columns In Panel2.Controls
|
|
uscol.BackColor = Color.Red
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub btnAlleAktivieren_Click(sender As Object, e As EventArgs) Handles btnAlleAktivieren.Click
|
|
For Each uscol As uscntr_Columns In Panel2.Controls
|
|
uscol.BackColor = Color.LightGreen
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub CmdPrint_Click(sender As Object, e As EventArgs) Handles CmdPrint.Click
|
|
Dim dswork As DataSet = DS.Copy()
|
|
For Each uscol As uscntr_Columns In Panel2.Controls
|
|
If uscol.BackColor = Color.Red Then
|
|
dswork.Tables(0).Columns.Remove(uscol.Label1.Text)
|
|
End If
|
|
Next
|
|
Dim PrintAR As New frmPrintActiveReports
|
|
PrintAR.dt = dswork.Tables(0)
|
|
PrintAR.DruckArt = "Manuell"
|
|
PrintAR.Show()
|
|
End Sub
|
|
End Class |