不知错在哪里？？？？？？

Question

Function Append(Var E1:Integer;Var E2:String;Var E3:Integer):TRecord; 
声明部分,这一句有错.

Answer 1

用ADOTable.append添加记录时，传入参数必须与数据库中字段个数相同
所以你不如用个ADOQuery用sql语句添加！

Answer 2

TRecord是什么类型 你也没返回  Function Append(E1:Integer,E2:String,E3:Integer):BOOLEAN
  Begin
try
  result:=true;
  ADOTable1.close;
  ADOTable1.open;
  ADOTable1.append；
  adotable1.fields[1].asinteger:=e1;
  adotable1.fields[2].asstring:=e2;  adotable1.fields[3].asinteger:=e3;  ADOTable1.post;
except
  result:=false;
end;
  end;

Answer 3

 老鬼：
  程序中说ADOTable1没有定义，是什么原因？

Answer 4

Function Append(Var E1:Integer;Var E2:String;Var E3:Integer):TRecord; 
程序如下：
  Function Append(Var E1:Integer;Var E2:String;Var E3:Integer):TRecord; 
  Begin
  ADOTable1.close;
  ADOTable1.open;
  ADOTable1.append(E1,E2,E3);
  ADOTable1.post;
  end;

Answer 5

程序中说ADOTable1没有定义，是什么原因？

Answer 6

Function Append(Var E1:Integer;Var E2:String;Var E3:Integer):TRecord; 
在implementation前定义好以后；按ctrl+shift+c
程序中
Function Tform1.Append(Var E1:Integer;Var E2:String;Var E3:Integer):TRecord; 
这类个格式
如果没有Tform1.Append则
  form1.ADOTable1.close