jj 16.11 frmGoogle

app/DD-Record-Organiser/ClassHelper.vb

@@ -213,17 +213,16 @@ Public Class ClassHelper
         Try
             Dim tbltemp As DataTable = Primary_DT.Clone()
             ' Nicht benötigt? Datumsspalten werden im Grid formatiert
-            'For Each col As String In listdate
-            '    Dim colDate As DataColumn = tbltemp.Columns(col)
-            '    If Not IsNothing(colDate) Then
-            '        Try
-            '            colDate.DataType = GetType(DateTime)
-            '        Catch ex As Exception
-
-            '        End Try
-
-            '    End If
-            'Next
+            For Each col As String In listdate
+                Dim colDate As DataColumn = tbltemp.Columns(col)
+                If Not IsNothing(colDate) Then
+                    Try
+                        colDate.DataType = GetType(Date)
+                    Catch ex As Exception
+                        MsgBox("Error in Format_GridColumns:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+                    End Try
+                End If
+            Next
             For Each col1 As String In listcheck
                 Dim collist As DataColumn = tbltemp.Columns(col1)
                 If Not IsNothing(collist) Then