Initial commit

BEA - Kopie/Diverse Formulare/frmExportContainer.vb

@@ -0,0 +1,67 @@
+Public Class frmExportContainer
+
+    Dim WithEvents evh As _Generic_Event_Handler.Generic_Event_Handler = Globals.Generic_Event_Handler
+
+    Private Sub frmExportContainer_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+    End Sub
+
+    Private Sub evh_Export_Vorbereiten_Clicked(Type As String, Bezeichnung As String, Keyvalue As String) Handles evh.Export_Vorbereiten_Clicked
+        Dim arr(3) As String
+        arr(0) = Type
+        arr(1) = Bezeichnung
+        arr(2) = Keyvalue
+        Dim li As New ListViewItem(arr)
+        Me.ListView1.Items.Add(li)
+    End Sub
+
+    Private Sub frmExportContainer_SizeChanged(sender As Object, e As EventArgs) Handles Me.SizeChanged
+        Me.ListView1.Columns(0).Width = Me.ListView1.Width / 3
+        Me.ListView1.Columns(1).Width = Me.ListView1.Width / 3
+        Me.ListView1.Columns(2).Width = Me.ListView1.Width / 3
+
+    End Sub
+
+    Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
+        Globals.ExcelExport_Form_exists = False
+        Me.Close()
+    End Sub
+
+    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
+        Dim frmf As New frmFortschritt
+        frmf.Show()
+        frmf.ProgressBar1.Value = 0
+        frmf.ProgressBar1.Maximum = Me.ListView1.Items.Count
+        Dim ds As New DataSet
+        Dim dc As New _DataClass.DataClass
+        ds.Tables.Clear()
+        Dim i As Integer = 1
+
+        For Each lvi As ListViewItem In Me.ListView1.Items
+            frmf.ProgressBar1.Value = frmf.ProgressBar1.Value + 1
+            Application.DoEvents()
+            Dim dt As New DataTable
+            dt = dc.Get_Data_for_ExcelExport(lvi.SubItems(0).Text, lvi.SubItems(2).Text)
+
+            If i = 1 Then
+                ds.Tables.Add(dt.Copy)
+            Else
+                For Each r As DataRow In dt.Rows
+                    ds.Tables(0).ImportRow(r)
+                Next
+            End If
+            i = i + 1
+        Next
+
+        Dim rpt As New _FRReporting.frmAuswertung("ExcelExport", ds, Globals.clsapplication.sTmp_filepath.Value)
+
+        rpt.MdiParent = Me.MdiParent
+        rpt.Show()
+        frmf.Close()
+        frmf.Dispose()
+    End Sub
+
+    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
+        Me.ListView1.Items.Clear()
+    End Sub
+End Class