关于DBEdit为何在赋值时没反应?

Question

在Insert模式中,当DBdit3输入后,就自动调出字段值Cust_Cname给DBdit5,但为何没反应?代码如下:
procedure TNewOrdersForm.DBEdit3Exit(Sender: TObject);
begin
with DataM.Q do
begin
sql.Clear;
sql.Add('select Cust_Cname from Cust_base where Cust_No='''+trim(DBEdit3.Text)+''' ');
open;
if RecordCount>0 then
begin
DataM.Template.FieldByName('CustomerName').Value:='ddd';
end;
end;
end;

Answer 1

补充一下:1.DBdit5的DataField指到DataM.Template的CustomerName2.输入的查詢資料在数据库中是确实存在的.3.更奇怪的是,我把sql語句打印給DBdit3時,焦点再次放进去时,DBdit3里的值又还原成原来的值了,为什么啊.

Answer 2

if RecordCount>0 then
begin
  edit;
  DataM.Template.FieldByName('CustomerName').Value:='ddd';
  post;
end;