var
i:integer;
Lista: TStringList;//用于存储数据的字符列表
begin
Lista := TstringList.Create;
adotable1.Open;
Lista.Clear;
adotable1.GetFieldNames(lista);
i:=1;
while i<adotable1.FieldCount-1 do begin
str:=str+'['+lista.Strings+'],';
inc(i);
end;
str:=str+'['+lista.Strings+']' ;
sSql :='insert into 表名('+str+') select '+str+' from 表名'