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.
67 lines
2.3 KiB
67 lines
2.3 KiB
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 |