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

[RobotSky]

在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;

[wing_er]

数据集要先edit

[RobotSky]

补充一下:

1.DBdit5的DataField指到DataM.Template的CustomerName

2.输入的查詢資料在数据库中是确实存在的.

3.更奇怪的是,我把sql語句打印給DBdit3時,焦点再次放进去时,DBdit3里的值又还原成原来的值了,为什么啊.

[雄牛]

晕,怎么没高人路过?

[Tensionli]

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