Merge branch 'main' of http://47.100.72.85:3000/rtgit/RtTool

Delphi10/开发档案/Dp10RepoV1/public10/ThreeFun/Fun/U_RTFun.pas

@@ -2485,6 +2485,7 @@ begin
     begin
       Close;
       SQL.Clear;
+      Filtered := false;
       sql.Add(SqlStr);
       Open;
     end;