rtgit/RTFormwork
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

123

Browse Source
This commit is contained in:
sgwp 2024-07-22 10:38:54 +08:00
parent f361e4e39a
commit 41c4a5933c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
public10/ThreeFun/Fun/U_RTFun.pas
View File

@ -2484,7 +2484,7 @@ begin
mGridName := cxGrid.GetParentComponent.Name + '.' + cxGrid.name; mGridName := cxGrid.GetParentComponent.Name + '.' + cxGrid.name;
try try
cxGrid.BeginUpdate() ; cxGrid.BeginUpdate();
mADOTmp := TADOQuery.Create(nil); mADOTmp := TADOQuery.Create(nil);
mADOTmp.ConnectionString := DConString; mADOTmp.ConnectionString := DConString;
with mADOTmp do with mADOTmp do
@ -2545,7 +2545,7 @@ begin
finally finally
mADOTmp.close; mADOTmp.close;
mADOTmp.Free; mADOTmp.Free;
cxGrid.EndUpdate(); cxGrid.EndUpdate() ;
end; end;
end; end;