MS SQL Command IDB

GUIs.ZooFlow/frmFlowForm.vb

@@ -232,7 +232,7 @@ Public Class frmFlowForm
             Modules = New ClassModules(My.LogConfig, My.SystemConfig)
             FileEx = New Filesystem.File(My.LogConfig)
             Search = New SearchRunner(My.LogConfig, Environment, "FlowSearch") With {
-                .BaseSearchSQL = DocResultBaseSearch
+                .BaseSearchSQL = SQL_DocResultBase
             }
 
             ' === Initialize Theming ===
@@ -358,12 +358,12 @@ Public Class frmFlowForm
 
     Private Async Function Load_Recent_Files() As Task
         Try
-            Dim oSql = $"SELECT TOP 10 * FROM VWIDB_DOCRESULT_DE WHERE [Changed who] = '{My.Application.User.UserName}' ORDER BY [Changed when] DESC"
-            Dim AccessedFilesTable = Await My.Database.GetDatatableIDBAsync(oSql)
+
+            Dim AccessedFilesTable = Await My.Database.GetDatatableIDBAsync(SQL_RECENT_FILES_USER)
 
             GridControlRecentFiles.DataSource = AccessedFilesTable
-            colPrimary.FieldName = "DisplayFileName"
-            colSecondary.FieldName = "Changed when"
+            colPrimary.FieldName = AccessedFilesTable.Columns(1).ColumnName ' "DisplayFileName"
+            colSecondary.FieldName = AccessedFilesTable.Columns(2).ColumnName '"Changed when"
         Catch ex As Exception
             ShowErrorMessage(ex)
         End Try
@@ -1271,7 +1271,7 @@ Public Class frmFlowForm
 
                 Dim oDataSource As DataTable = GridControlRecentFiles.DataSource
                 Dim oResult = oDataSource.AsEnumerable().
-                    Where(Function(row) row.Item("DocId") = oObjectId).
+                    Where(Function(row) row.Item(0) = oObjectId).
                     CopyToDataTable()
 
                 Search.Run(oResult, "Suche")