This commit is contained in:
SchreiberM 2022-05-06 11:02:39 +02:00
parent ce87ce9376
commit 9cb625e136
2 changed files with 7 additions and 5 deletions

View File

@ -158,7 +158,7 @@ Partial Class frmFlowForm
'
'TimerRefreshSidebarData
'
Me.TimerRefreshSidebarData.Interval = 10000
Me.TimerRefreshSidebarData.Interval = 60000
'
'PictureBoxPM
'

View File

@ -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