如果仅仅是你自己要，建议用PB7.0的DATABASE画板ROW菜单SAVE ROW AS……命令
如果是给客户用
那么
1.先select * from tab1;得到数据集
2.
pcocedure……
var
sql_all,sql:string;
i:integer;
begin
with 数据集 do
begin
first；
while not eof …
begin
sql := 'insert into tab1(…) values('; // for i := 0 to Table1.FieldCount - 1 do
//Info := Info + Table1.Fields.FieldName + #13#10;
//得到字段名列表
sql := sql + 数据集.Fields[0].asstring ;//根据字段类型决定是否加单引号
//字段类型:TField.DataType
for i:=0 to 数据集.fieldcount -1 do
sql := sql + ',' + 数据集.Fields.asstring ;//根据字段类型决定是否加单引号
sql := sql +')';//如果要分行加回车符号
sql_all:=sql_all+sql;
end;
end;
end;
