add error cache2

2026-04-20 21:39:53 +08:00
parent 14682d3504
commit 6f2bb324e4
4 changed files with 6 additions and 3 deletions
--- a/src/module/Common_Functions.bas
+++ b/src/module/Common_Functions.bas
@@ -324,7 +324,7 @@ Function GetErrorMsg(ByVal errorCode As String, Optional ByVal param As String =
    Dim errorList As Object: Set errorList = GetErrorList()
    Dim errorMessage As String
    If errorList.Exists(errorCode) Then
-        errorMessage = Replace(errorList(errorCode)(0), "{0}", param)
+        errorMessage = MakeSelect(errorCode, Replace(errorList(errorCode)(0), "{0}", param))
    End If
    GetErrorMsg = errorMessage
 End Function