ADOCommand1.CommandText:='update   ctn_cgmz   set   purpose_code=:purpose_code,mode_code=:mode_code,vessel_code=:vessel_code,voyage=:voyage,bl_no=:bl_no,ctn_no=:ctn_no' 
',truck_no=:truck_no,yunshu_dw=:yunshu_dw,goods_name=:goods_name,CTN_STATUS=:CTN_STATUS'
',package=:package,ask_person=:ask_person,ask_time=:ask_time'
' where id=:id';
ADOCommand1.Parameters.ParamByName('purpose_code').Value:=Edit10.Text;
ADOCommand1.Parameters.ParamByName('mode_code').Value:=Edit11.Text;
ADOCommand1.Parameters.ParamByName('vessel_code').Value:=Edit5.Text;
ADOCommand1.Parameters.ParamByName('voyage').Value:=Edit6.Text;
ADOCommand1.Parameters.ParamByName('bl_no').Value:=Edit8.Text;
ADOCommand1.Parameters.ParamByName('ctn_no').Value:=Edit1.Text;
ADOCommand1.Parameters.ParamByName('truck_no').Value:= Edit4.Text;
ADOCommand1.Parameters.ParamByName('yunshu_dw').Value:=Edit9.Text;
ADOCommand1.Parameters.ParamByName('goods_name').Value:=Edit12.Text;
ADOCommand1.Parameters.ParamByName('package').Value:=Edit13.Text;
ADOCommand1.Parameters.ParamByName('ask_person').Value:=Edit14.Text;
ADOCommand1.Parameters.ParamByName('ask_time').Value:=formatdatetime('yyyy-mm-dd hh:mm:ss',strtodatetime(trim(Edit15.Text)));
ADOCommand1.Parameters.ParamByName('CTN_STATUS').Value:=Edit20.Text;
ADOCommand1.Parameters.ParamByName('id').Value:=QryMZid.AsString;

為什麼這個purpose_code欄位沒有被更新，其他的都可以更新，我測試了一下凡是放在第一個的都不能被更新

您好，請試試看如果直接下SQL語法會不會有問題
ADOCommand1.CommandText:=
' update ctn_cgmz set '
' purpose_code=''' Edit10.Text ''' '
' ,mode_code=''' Edit11.Text; ''' '
' ,vessel_code=''' Edit5.Text ''' '
' ,voyage=''' Edit6.Text ''' '
' ,bl_no=''' Edit8.Text ''' '
' ,ctn_no=''' Edit1.Text ''' '
' ,truck_no=''' Edit4.Text ''' '
' ,yunshu_dw=''' Edit9.Text ''' '
' ,goods_name=''' Edit12.Text ''' '
' ,CTN_STATUS=''' Edit20.Text ''' '
' ,package=''' Edit13.Text ''' '
' ,ask_person=''' Edit14.Text ''' '
' ,ask_time=''' formatdatetime('yyyy-mm-dd hh:mm:ss',strtodatetime(trim(Edit15.Text))) ''' '
' where id=''' QryMZid.AsString ''' ';

------
Pillar Wang