可是,当再按下一步时,就出错了?怎么办(15分)

  • 主题发起人 主题发起人 wangxinf1
  • 开始时间 开始时间
W

wangxinf1

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm3.FlatButton23Click(Sender: TObject);//下一步,实现存入数据库
begin
adoTable1.insert;
adoTable1.fieldbyName('ajmc').value := flatdbEdit1.text;
adoTable1.fieldbyName('fasj').value := flatdbEdit2.text;
adoTable1.fieldbyName('fadq').value := flatdbEdit3.text;
adoTable1.fieldbyName('ajlb').value := flatDBComboBox1.text;
adoTable1.fieldbyName('ajxz').value := flatdbEdit4.text;
adoTable1.fieldbyName('zasd').value := flatdbEdit5.text;
adoTable1.fieldbyName('zagj').value := flatdbEdit6.text;
adoTable1.fieldbyName('qt').value := flatdbEdit7.text;
adoTable1.fieldbyName('zfxm').value := flatdbEdit8.text;
AdoTable1.Post;
pagecontrol3.activepage:=tabsheet14;
end;

procedure TForm3.FlatButton27Click(Sender: TObject);//上一步按钮,返回修改
begin
pagecontrol3.activepage:=tabsheet13;
end;
可是,当再按下一步时,就出错了?
 
看来没什么问题啊~ 报错信息是什么?
 
出错信息是?
 
是不是主键重复插入了???
 
是不是有的字段类型不匹配?
还有楼上说的主键要唯一!
 
我用的是access,将编号的默认值设为now,让其以日期和时间为编号,出错为:
raw cannot be located for updating,some values may have been changed since it was last read.
 
主键不是允许重复的
 
加上 adotable1.close;
adotable1.open;
....
看看如何 [?]
 
加上 adotable1.close;
adotable1.open还是可以的。。。非常感谢!
 
[:D][:D][:D] 原来如此! 没有发现这里的情况!

我现在已经习惯看 query.add 了 , [:D][:D]
table 的看了觉得不舒服! [:D][:D]
 
后退
顶部