Export Urlaubsplaner - Jahresansicht

UID/Dienstplan/frmUrlaubsplaner.vb

@@ -5,6 +5,7 @@ Public Class frmUrlaubsplaner
     Dim ADMIN As New cOptionenDAL
     Public niederlassung = ""
     Dim aktJahr As Integer = Now.Year
+    Dim dt As New DataTable
 
     Private Sub frmUrlaubsplaner_Load(sender As Object, e As EventArgs) Handles Me.Load
         lblMa.Text = ""
@@ -169,8 +170,8 @@ Public Class frmUrlaubsplaner
             Return dDate.Year + 1 & "01"
         ElseIf dDate < dThisYear Then
             ' Falls das Datum noch zu einer KW aus dem letzten Jahr zählt
-            Return dDate.Year - 1 & DatePart(DateInterval.WeekOfYear, _
-              New Date(dDate.Year - 1, 12, 28), FirstDayOfWeek.Monday, _
+            Return dDate.Year - 1 & DatePart(DateInterval.WeekOfYear,
+              New Date(dDate.Year - 1, 12, 28), FirstDayOfWeek.Monday,
               FirstWeekOfYear.FirstFourDays)
         Else
             ' KW = Differenz zum ersten Tag der ersten Woche
@@ -234,7 +235,7 @@ Public Class frmUrlaubsplaner
         End If
     End Sub
     Private Sub dgvPrjDwgs_CellMouseLeave(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvUrlaub.CellMouseLeave
-         For i = 0 To dgvUrlaub.RowCount - 1
+        For i = 0 To dgvUrlaub.RowCount - 1
             For j = 0 To dgvUrlaub.ColumnCount - 1
                 Dim c = dgvUrlaub.Rows(i).Cells(j)
                 If c.Value Is Nothing Then c.Style.BackColor = IIf(j = 0, Color.LightGray, Color.White)
@@ -248,7 +249,7 @@ Public Class frmUrlaubsplaner
 
         dgvUrlaub.SuspendLayout()
         dgvUrlaub.DefaultCellStyle.BackColor = Color.White
-       
+
         If dgvUrlaub.SelectedCells.Count > 0 Then '
             'dgvUrlaub.Rows(dgvUrlaub.SelectedCells(0).OwningRow.Index).Cells("maKuerzel").Style.BackColor = Color.Red ' : MsgBox(dgvUrlaub.SelectedRows(0).Cells("maKuerzel").Value)
             dgvUrlaub.Rows(dgvUrlaub.SelectedCells(0).OwningRow.Index).DefaultCellStyle.BackColor = Color.LightGray ' : MsgBox(dgvUrlaub.SelectedRows(0).Cells("maKuerzel").Value)
@@ -332,11 +333,44 @@ Public Class frmUrlaubsplaner
     End Sub
 
     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
-        cProgramFunctions.genExcelFromDT_NEW(cProgramFunctions.dgridViewTods(dgvUrlaub))
+
+        cProgramFunctions.genExcelFromDT_NEW(saveToDt())
 
     End Sub
 
     Private Sub cboJahr_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboJahr.SelectedIndexChanged
         If loaded Then aktJahr = cboJahr._value : initDGV() : 
     End Sub
+
+    Private Function saveToDt() As DataTable
+
+        Dim dt As New DataTable()
+
+        For Each column As DataGridViewColumn In dgvUrlaub.Columns
+            If column.ValueType Is Nothing Then
+
+                dt.Columns.Add(column.HeaderText, System.Type.GetType("System.String"))
+            Else
+
+                dt.Columns.Add(column.HeaderText, column.ValueType)
+            End If
+
+        Next
+
+
+        For Each row As DataGridViewRow In dgvUrlaub.Rows
+            dt.Rows.Add()
+            For Each cell As DataGridViewCell In row.Cells
+                If cell.Value Is Nothing Then
+                    dt.Rows(dt.Rows.Count - 1)(cell.ColumnIndex) = ""
+                Else
+                    dt.Rows(dt.Rows.Count - 1)(cell.ColumnIndex) = cell.Value.ToString()
+                End If
+
+            Next
+        Next
+
+        Return dt
+    End Function
+
 End Class