diff --git a/GUIs.ZooFlow/frmFlowForm.Designer.vb b/GUIs.ZooFlow/frmFlowForm.Designer.vb index 83c48a80..c6cd2cfb 100644 --- a/GUIs.ZooFlow/frmFlowForm.Designer.vb +++ b/GUIs.ZooFlow/frmFlowForm.Designer.vb @@ -158,7 +158,7 @@ Partial Class frmFlowForm ' 'TimerRefreshSidebarData ' - Me.TimerRefreshSidebarData.Interval = 10000 + Me.TimerRefreshSidebarData.Interval = 60000 ' 'PictureBoxPM ' diff --git a/GUIs.ZooFlow/frmFlowForm.vb b/GUIs.ZooFlow/frmFlowForm.vb index 9613bb73..c3837fb2 100644 --- a/GUIs.ZooFlow/frmFlowForm.vb +++ b/GUIs.ZooFlow/frmFlowForm.vb @@ -395,8 +395,10 @@ Public Class frmFlowForm 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) - + RecentFilesView.Columns.Clear() + GridControl1.DataSource = Nothing GridControl1.DataSource = AccessedFilesTable + colPrimary.FieldName = "DisplayFileName" colSecondary.FieldName = "Changed when" Catch ex As Exception @@ -1247,9 +1249,9 @@ Public Class frmFlowForm End Sub Private Sub TimerRefreshSidebarData_Tick(sender As Object, e As EventArgs) Handles TimerRefreshSidebarData.Tick - If LOAD_SIDEBAR_DATA = True Then - Load_Recent_Files() - End If + ' If LOAD_SIDEBAR_DATA = True Then + Load_Recent_Files() + 'End If End Sub End Class