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;