不提示错误，也没有保存在数据库中，何解？？？？？？？？？？？？？

Question

zlink.AdoConnection1.BeginTrans;
      Try   zlink.ADOTableSZ.Locate('项目','计费',[]);
   zlink.ADOTableSZ.Edit;
   zlink.ADOTableSZ.FieldByName('单价').AsFloat:= strtofloat('0'+edit1.Text);
   zlink.ADOTableSZ.FieldByName('计费周期').AsInteger:=strtoint('0'+combobox1.Text);
   zlink.ADOTableSZ.FieldByName('收费日').AsInteger:=strtoint('0'+combobox2.Text);
   zlink.ADOTableSZ.FieldByName('期限').AsInteger:=strtoint('0'+edit2.Text);
   zlink.ADOTableSZ.FieldByName('日滞纳金').AsFloat:= strtofloat('0'+edit3.Text);
   zlink.ADOTableSZ.Post;   showmessage('资料已经保存');
      Except
      zlink.AdoConnection1.RollBackTrans;
      End ;
不提示错误，也没有保存在数据库中，何解？？？？？？？？？？？？？

Answer 1

zlink.ADOTableSZ.Locate('项目','计费',[]);
zlink.ADOTableSZ.insert;试试

Answer 2

你是不是设了缓存啊？
那样的话应用update吧？

Answer 3

不知道
不会用缓存
更不会update
望赐教

Answer 4

zlink.ADOTableSZ.Post;改为
zlink.ADOTableSZ.UpdateBatch();

Answer 5

可以在属性中设啊
locktype  ltbatchOtimistic
在修改完后
adotabel1.updatebatch;

Answer 6

暂时把
Try
Except
END
注释掉再运行，便于找错!