MS25.10

app/DD-Record-Organiser/ClassHelper.vb

@@ -215,9 +215,13 @@ Public Class ClassHelper
             For Each col As String In listdate
                 Dim colDate As DataColumn = tbltemp.Columns(col)
                 If Not IsNothing(colDate) Then
-                    colDate.DataType = GetType(Date)
-                End If
+                    Try
+                        colDate.DataType = GetType(Date)
+                    Catch ex As Exception
 
+                    End Try
+
+                End If
             Next
             For Each col1 As String In listcheck
                 Dim collist As DataColumn = tbltemp.Columns(col1)
@@ -229,7 +233,7 @@ Public Class ClassHelper
                 tbltemp.Load(Primary_DT.CreateDataReader)
                 Return tbltemp
             Catch ex As Exception
-                ClassLogger.Add(">> Attention: Could not load converted datatable: " & ex.Message, False)
+                ClassLogger.Add(">> Attention: Format_GridColumns - Could not load converted datatable: " & ex.Message, False)
                 'Tabelle wird ohne Datekonvertierung geladen
                 Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(_ENTITYSQL, "Load_Entity_Data_Only")
                 Dim primaryKey(1) As DataColumn