DAtabase integriert

app/DD-Record-Organizer/Classes/ClassGridFormatter.vb

@@ -219,52 +219,3 @@ Public Class ClassGridFormatter
     End Class
 
 End Class
-
-' FOR REFERENCE IN CASE SOMETHING BREAKS :)
-'Public Shared Function Format_GridColumns(Primary_DT As DataTable, _ENTITYSQL As String, listcheck As List(Of String), listdate As List(Of String))
-'    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(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
-'                collist.DataType = GetType(Boolean)
-'            End If
-'        Next
-'        Try
-'            Dim collist As DataColumn = tbltemp.Columns("files?")
-'            If Not IsNothing(collist) Then
-'                collist.DataType = GetType(Boolean)
-'            End If
-'        Catch ex As Exception
-
-'        End Try
-'        Try
-'            tbltemp.Load(Primary_DT.CreateDataReader)
-'            Return tbltemp
-'        Catch ex As Exception
-'            Logger.Warn("Attention: Format_GridColumns - Could not load converted datatable: " & ex.Message)
-'            'Tabelle wird ohne Datekonvertierung geladen
-'            Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(_ENTITYSQL, "Load_Entity_Data_Only")
-'            Dim primaryKey(1) As DataColumn
-'            primaryKey(0) = DTEntity.Columns("Record-ID")
-'            DTEntity.PrimaryKey = primaryKey
-'            Return DTEntity
-'        End Try
-'    Catch ex As Exception
-'        MsgBox("Unexpected Error in Format_GridColumns:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-'        Logger.Warn("Error in Format_GridColumns: " & ex.Message)
-'        Return Nothing
-'    End Try
-
-'End Function