Group_DJD/D7DJlongsheng
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-03-15 10:12:45 +08:00
parent eada7efe0d
commit 4e3b223132
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
打卷检验管理/U_JYOrderCDOne.pas
View File

@ -2369,11 +2369,12 @@ begin
CRID := ADOQuery1.fieldbyname('CRID').Value; CRID := ADOQuery1.fieldbyname('CRID').Value;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('Update JYOrder_Main Set DYXH=''' + Trim(CRID) + ''' '); sql.Add('Update JYOrder_Main Set DYXH=''' + Trim(CRID) + ''' ');
sql.Add('where mainid in ''' + Trim(FMainID) + ''''); sql.Add('where mainid='''+Trim(Order_Main.fieldbyname('mainID').AsString) +'''');
ExecSQL; // ShowMessage(sql.text);
ExecSQL;
end; end;
end; end;