From e8b4b8b8a58a71e282852e8b08682395f11211d4 Mon Sep 17 00:00:00 2001
From: sgwp <63001967@qq.com>
Date: Mon, 22 Jul 2024 10:20:12 +0800
Subject: [PATCH] rtfunc

---
 public10/ThreeFun/Fun/U_RTFun.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/public10/ThreeFun/Fun/U_RTFun.pas b/public10/ThreeFun/Fun/U_RTFun.pas
index acec672..b1712c4 100644
--- a/public10/ThreeFun/Fun/U_RTFun.pas
+++ b/public10/ThreeFun/Fun/U_RTFun.pas
@@ -2484,6 +2484,7 @@ begin
   mGridName := cxGrid.GetParentComponent.Name + '.' + cxGrid.name;
 
   try
+    cxGrid.BeginUpdate();
     mADOTmp := TADOQuery.Create(nil);
     mADOTmp.ConnectionString := DConString;
     with mADOTmp do
@@ -2544,6 +2545,7 @@ begin
   finally
     mADOTmp.close;
     mADOTmp.Free;
+    cxGrid.EndUpdate();
   end;
 
 end;
@@ -2569,6 +2571,7 @@ begin
   mGridName := cxGrid.GetParentComponent.Name + '.' + cxGrid.name;
 
   try
+     cxGrid.BeginUpdate();
     mADOTmp := TADOQuery.Create(nil);
     mADOTmp.ConnectionString := DConString;
     /////////////////////////////////////////
@@ -2651,6 +2654,7 @@ begin
   finally
     mADOTmp.close;
     mADOTmp.Free;
+    cxGrid.EndUpdate ;
   end;
 
 end;