关于修改数据库中的记录。

Question

试一下：
  form1.table1.Append;  //编译时错在这句
  form1.Table1['Date'] := StrToDate(ss);
  form1.Table1['Class'] := cmbSZ.Text;
  form1.Table1['Number'] := strToInt(edit1.Text);
  form1.Table1['Memo'] := Edit2.Text;
  form1.Table1.Post;

Answer 1

试一下：
  form1.table1.Active := true;
  form1.table1.Append;  //编译时错在这句
  form1.Table1['Date'] := StrToDate(ss);
  form1.Table1['Class'] := cmbSZ.Text;
  form1.Table1['Number'] := strToInt(edit1.Text);
  form1.Table1['Memo'] := Edit2.Text;
  form1.Table1.Post;

Answer 2

试一下：
  form1.table1.Active := true;
  form1.table1.Append;  //编译时错在这句
  form1.Table1['Date'] := StrToDate(ss);
  form1.Table1['Class'] := cmbSZ.Text;
  form1.Table1['Number'] := strToInt(edit1.Text);
  form1.Table1['Memo'] := Edit2.Text;
  form1.Table1.Post;

Answer 3

with form1.table1 then
  begin
  if active=false then open  
  append;
  fields[0]:=StrToDate(ss);
  fields[0]:=cmbSZ.Text;
  fields[0]:=strToInt(edit1.Text);
  fields[0]:=Edit2.Text;
  post;
  Refresh;
end;