保存的时候,想对一个已存在的数据集里的字段进行修改,并保存到数据库里,则用以下方法很有效果:
if not (CDS2.State in [dsinsert,dsedit]) then
begin
with cds2 do
begin
DisableControls;
First;
while not Eof do
begin
Edit;
FieldByName('AgentNo').Value := cxDBTextEdit5.Text; //--渠道单号
FieldByName('StockTempBillNo').Value := cxDBTextEdit1.Text; //-临时托运单号
Post;
Next;
end;
EnableControls;
end;
end;
dm.PutDataPack('select * from bill_tab where 1=2 ',CDS2);