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;