add reload cache button

2026-04-20 19:00:59 +09:00
parent 5c40eb4381
commit 1b851b2224
4 changed files with 34 additions and 5 deletions
--- a/src/module/Common_Button.bas
+++ b/src/module/Common_Button.bas
@@ -31,7 +31,10 @@ Sub Fit_Button()
 End Sub

 Sub RefreshCache_Button()
-    ' 重新加载所有缓存
+    Dim result As Boolean: result = RefreshCache()
+    If result = True Then
+        MsgBox "master data reload successfully."
+    End If
 End Sub

 Private Sub DO_CSV_Import(ws As Excel.Worksheet)
@@ -205,7 +208,7 @@ ExportError:
 End Sub

 Private Sub Do_Sort(ws As Excel.Worksheet)
-    MsgBox "1"
+    '
 End Sub

 Private Sub Do_Filter(ws As Excel.Worksheet)