MS Rework

app/DD-Record-Organizer/ClassHelper.vb

@@ -349,4 +349,20 @@ Public Class ClassHelper
             Return ""
         End Try
     End Function
+    Public Shared Function FILTER_DATATABLE(BaseDatatable As DataTable, expression As String, sortstring As String)
+        Try
+            'Schema übernehmen
+            Dim filteredData As DataTable = BaseDatatable.Clone()
+            'Einfügevariante
+            BaseDatatable.Select(expression, sortstring).CopyToDataTable(filteredData, LoadOption.PreserveChanges)
+            Console.WriteLine("Found {0} rows.", filteredData.Rows.Count)
+            'Dim filteredData = BaseDatatable.Select(expression).CopyToDataTable()
+            Return filteredData
+        Catch ex As Exception
+            ClassLogger.Add("unexpected error in FILTER_DATATABLE: " & ex.Message)
+            Return Nothing
+        End Try
+
+
+    End Function
 End Class