fix frmIndexFileList delete all files

2020-02-11 16:04:33 +01:00
parent 1fbfa0b1ee
commit 96be54aab4
3 changed files with 99 additions and 27 deletions
--- a/Global_Indexer/frmIndexFileList.vb
+++ b/Global_Indexer/frmIndexFileList.vb
@@ -58,7 +58,8 @@ Public Class frmIndexFileList
        CheckedListBoxControl1.Focus()
    End Sub

-    Private Sub frmIndexFileList_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
+    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
        ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True)
+        Close()
    End Sub
 End Class