From 4e3b22313202e868a8194304d85647b7dd89611a Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Sat, 15 Mar 2025 10:12:45 +0800
Subject: [PATCH] ~

---
 打卷检验管理/U_JYOrderCDOne.pas | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/打卷检验管理/U_JYOrderCDOne.pas b/打卷检验管理/U_JYOrderCDOne.pas
index 9853b95..8b59593 100644
--- a/打卷检验管理/U_JYOrderCDOne.pas
+++ b/打卷检验管理/U_JYOrderCDOne.pas
@@ -2369,11 +2369,12 @@ begin
   CRID := ADOQuery1.fieldbyname('CRID').Value;       
   with ADOQueryCmd do
   begin
-    Close;
+    Close;                                             
     sql.Clear;
     sql.Add('Update JYOrder_Main Set DYXH=''' + Trim(CRID) + '''  ');
-    sql.Add('where mainid in ''' + Trim(FMainID) + '''');
-    ExecSQL;
+    sql.Add('where mainid='''+Trim(Order_Main.fieldbyname('mainID').AsString) +'''');
+//    ShowMessage(sql.text);
+    ExecSQL;                            
   end;
 end;