为什么这段代码。不能添加记录呢？

Question

procedure TForm1.Button1Click(Sender: TObject);
beginTable1.Append; Table1.FieldValues['Continent'] := Edit1.Text;
 Table1.FieldValues['Country'] := Edit2.Text;
 Table1.FieldValues['Type'] := Edit3.Text;
 Table1.FieldValues['Class'] := Edit4.Text;
 Table1.FieldValues['DevelopInf'] := Memo1.Text;
 Table1.FieldValues['Speically'] := Memo2.Text;
 Table1.FieldValues['capability'] := Memo3.Text; Table1.Post;
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
 Table1.Append; Table1.FieldValues['Continent'] := Edit1.Text;
 Table1.FieldValues['Country'] := Edit2.Text;
 Table1.FieldValues['Type'] := Edit3.Text;
 Table1.FieldValues['Class'] := Edit4.Text;
 Table1.FieldValues['DevelopInf'] := Memo1.Text;
 Table1.FieldValues['Speically'] := Memo2.Text;
 Table1.FieldValues['capability'] := Memo3.Text; Table1.Post;
end;

Answer 2

好象是这样，记不太清了：
procedure TForm1.Button1Click(Sender: TObject);
beginTable1.Append; Table1.FieldValues['Continent'].asstring := Edit1.Text;
 Table1.FieldValues['Country'].asstring := Edit2.Text;
 Table1.FieldValues['Type'].asstring := Edit3.Text;
 Table1.FieldValues['Class'].asstring := Edit4.Text;
 Table1.FieldValues['DevelopInf'].asstring := Memo1.Text;
 Table1.FieldValues['Speically'].asstring := Memo2.Text;
 Table1.FieldValues['capability'].asstring := Memo3.Text; Table1.Post;
end;

Answer 3

类型完全匹配吗？可以这么用：
procedure TForm1.Button1Click(Sender: TObject);
begin
 Table1.Append; Table1.fieldbyname('Continent').asstring := Edit1.Text;
 Table1.fieldbyname('Country').asstring := Edit2.Text;
 Table1.fieldbyname('Type').asstring := Edit3.Text;
 Table1.fieldbyname('Class').asstring := Edit4.Text;
 Table1.fieldbyname('DevelopInf').asstring := Memo1.Text;
 Table1.fieldbyname('Speically').asstring := Memo2.Text;
 Table1.fieldbyname('capability').asstring := Memo3.Text; Table1.Post;
end;

Answer 4

代码没有问题阿，检查字段值是否合法，另外是否键值冲突，用delphi调试就可以看到的阿。

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Edit;
Table1.Append; Table1.FieldValues['Continent'] := Edit1.Text;
 Table1.FieldValues['Country'] := Edit2.Text;
 Table1.FieldValues['Type'] := Edit3.Text;
 Table1.FieldValues['Class'] := Edit4.Text;
 Table1.FieldValues['DevelopInf'] := Memo1.Text;
 Table1.FieldValues['Speically'] := Memo2.Text;
 Table1.FieldValues['capability'] := Memo3.Text; Table1.Post;
end;

Answer 6

谢谢大家！
我删除，追加，修改的时候，在DBGrid中都显示正常，也没有任何报错信息！
怎么调试呢？另外键值冲突是指什么？ 我怀疑是否是我Table的控件属性没设好？

Answer 7

procedure TForm1.Button1Click(Sender: TObject);
begin
if not table1.open then
table1.open;
Table1.Edit;
Table1.Append; Table1.FieldValues['Continent'] := Edit1.Text;
 Table1.FieldValues['Country'] := Edit2.Text;
 Table1.FieldValues['Type'] := Edit3.Text;
 Table1.FieldValues['Class'] := Edit4.Text;
 Table1.FieldValues['DevelopInf'] := Memo1.Text;
 Table1.FieldValues['Speically'] := Memo2.Text;
 Table1.FieldValues['capability'] := Memo3.Text; Table1.Post;
end;

Answer 8

如果是键值冲突，可能因为你设置的表的主建和索引字段，在添加的时候，为空或者重复，那样会出现异常
如果是类型不匹配，你可以在添加字段时，转换一下类型，如  asstring