求助

Question

VAR
counter:integer;
 begin
 T_stud_info_1.Open; //打开表
 if T_stud_info_1.RecordCount>0 then
 begin
 T_counter_c.Open;  //打开表
 counter:=T_counter_c.FieldByName('COUNTER_VALUE').asInteger;
 //inc(counter);
 Counter:=Counter+1;
 T_counter_c.Edit;
  T_counter_c.FieldByName('Counter_Value').Value:=counter;
  T_counter_c.Post;
  T_change.Open;
  T_change.appendrecord([counter,i_stud_id_1.text,i_change.itemindex,now,i_descrip_1.text]);
  button1click(nil);
 end
 else
 application.MessageBox('请确认输入学号是否正确！','错误',MB_ok);end;
运行程序怎么老是说 field 'ID' must have a value
我表里面是有值的。郁闷ing
哪位大虾可以帮我指出来？感谢啊。。

Answer 1

设置断点看看，哪里出错了。
怀疑你的T_change.appendrecord([counter,i_stud_id_1.text,i_change.itemindex,now,i_descrip_1.text]); 有问题

Answer 2

field 'ID'  不能为空或者是字符串，是不是添加时丢了字段了。