AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
GUIs.ZooFlow/frmFlowForm.Designer.vb generated
View File

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

10
GUIs.ZooFlow/frmFlowForm.vb
View File

@ -395,8 +395,10 @@ Public Class frmFlowForm
Try Try
Dim oSql = $"SELECT TOP 10 * FROM VWIDB_DOCRESULT_DE WHERE [Changed who] = '{My.Application.User.UserName}' ORDER BY [Changed when] DESC" 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(oSql)
RecentFilesView.Columns.Clear()
GridControl1.DataSource = Nothing
GridControl1.DataSource = AccessedFilesTable GridControl1.DataSource = AccessedFilesTable
colPrimary.FieldName = "DisplayFileName" colPrimary.FieldName = "DisplayFileName"
colSecondary.FieldName = "Changed when" colSecondary.FieldName = "Changed when"
Catch ex As Exception Catch ex As Exception
@ -1247,9 +1249,9 @@ Public Class frmFlowForm
End Sub End Sub
Private Sub TimerRefreshSidebarData_Tick(sender As Object, e As EventArgs) Handles TimerRefreshSidebarData.Tick Private Sub TimerRefreshSidebarData_Tick(sender As Object, e As EventArgs) Handles TimerRefreshSidebarData.Tick
If LOAD_SIDEBAR_DATA = True Then ' If LOAD_SIDEBAR_DATA = True Then
Load_Recent_Files() Load_Recent_Files()
End If 'End If
End Sub End Sub
End Class End Class