高手请进！请教一个写法问题

Question

1.select group by 品名
2.create new table
3.data=>

Answer 1

var SQL_str:string;
sql_str:='create table table_temp(客户号 char(20),';
.
.
.
query1.sql.add('select distinct 品名 from Table1');
.
.
.
for i:=0 to i<query1.recordcount-1 do
begin
  sql_str:=sql_str+query1.fieldbyname('品名').asString + ',';  
end;
再把sql_str最后一个“，”去掉

Answer 2

var SQL_str:string;
sql_str:='create table table_temp(客户号 char(20),';
.
.
.
query1.sql.add('select distinct 品名 from Table1');
.
.
.
for i:=0 to i<query1.recordcount-1 do
begin
  sql_str:=sql_str+query1.fieldbyname('品名').asString + ',';  
  query1.next;
end;
再把sql_str最后一个“，”去掉

Answer 3

只要用一句sql就可以，如下insert into 表2(客户号,苹果,香蕉,桔子,总计) 
select 客户号,a.数量,b.数量,c.数量,a.数量+b.数量+c.数量
from 表1 a,表1 b,表1 c
where a.品名='苹果' and b.品名='香蕉' and c.品名='桔子'
 and a.客户号=b.客户号 and a.客户号=c.客户号
 group by 客户号