我被这个简单的问题搞晕了，大家来看看！

Question

procedure Tdeptfm.sb_adddClick(Sender: TObject);
begin
  if adotab_dept.Locate('dept_name',e_dname.Text,[]) then
    messagedlg('该部门已存在！',mtconfirmation,[mbyes],0)
  else begin
    adotab_dept.insert;
    adotab_dept.FieldByName('dept_name').asstring:=e_dname.text;
    adotab_dept.Post;
  end;
end;procedure Tdeptfm.adotab_deptAfterScroll(DataSet: TDataSet);
begin
  //e_dname.Text:=adotab_dept.FieldByName('dept_name').asstring;
end;现在的问题是，如果不注释掉afterscoll事件中的那一句，那么添加进表的记录就是空的，没有任何值。注释掉那句话后，添加进去的记录就是正确的，这到底是怎么回事哦？
比如在append或者insert时是不是要触发afterscoll？

Answer 1

adotab_dept.insert;这一句出发了afterscoll，
insert要将数据集滚动到记录集的最后。
所以你的e_dname.Text被付为空，然后你的
adotab_dept.FieldByName('dept_name').asstring:=e_dname.text;自然就是空的了。

Answer 2

但我用append也试过，是一样的啊

Answer 3

insert和append是一样的。再ASCESS和SQLSERVER中没有真正的插入，都是添加。