From da4befd5b49cf73d2f2b6356ddb7a20ed75bf3a2 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Wed, 29 Oct 2025 14:14:29 +0800 Subject: [PATCH] ~ --- 打卷检验管理/U_ProductOrderLBNameSet.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/打卷检验管理/U_ProductOrderLBNameSet.pas b/打卷检验管理/U_ProductOrderLBNameSet.pas index 3663d1c..498502c 100644 --- a/打卷检验管理/U_ProductOrderLBNameSet.pas +++ b/打卷检验管理/U_ProductOrderLBNameSet.pas @@ -1609,7 +1609,7 @@ begin mvalues := TCXTextEdit(Sender).Text; with Order_Main do - begin + begin edit; fieldbyname('DJDW').Value := mvalues; post; @@ -1654,10 +1654,10 @@ FReal: if order_Main.FieldByName('Ssel').AsBoolean = true then begin with ADOQueryCmd do - begin + begin Close; sql.Clear; - sql.Add('Update JYOrder_Sub Set DJDW=' + Trim(PiZhong.Text)); + sql.Add('Update JYOrder_Sub Set DJDW=''' + Trim(PiZhong.Text)+''''); sql.Add(' where Subid=''' + Trim(Order_Main.fieldbyname('Subid').AsString) + ''''); ExecSQL; end;