delphi access数据库操作，如何行转列显示

Question

access数据库中有一组数据A1    B1
aaa   1
aaa   2
aaa   3
aaa   4这是个关系对应表。
我想要的结果是：
在DBgrid中用显示两个列，如下：L1    L2
aaa   1,2,3,4 既B1列中的数据链接显示在一个列中。请指教，谢谢。

Answer 1

-- 经典SQL行列转换
-- http://www.programbbs.com/doc/4885.htm
/*
标题：普通行列转换(version 2.0)
说明：普通行列转换(version 1.0)仅针对sql server 2000提供静态和动态写法，version 2.0增加sql server 2005的有关写法。
问题：假设有张学生成绩表(tb)如下:
姓名 课程 分数
张三 语文 74
张三 数学 83
张三 物理 93
李四 语文 74
李四 数学 84
李四 物理 94
想变成(得到如下结果)：
姓名 语文 数学 物理
---- ---- ---- ----
李四 74 84 94
张三 74 83 93
-------------------
*/
create table tb(姓名 varchar(10) , 课程 varchar(10) , 分数 int)
insert into tb values('张三' , '语文' , 74)
insert into tb values('张三' , '数学' , 83)
insert into tb values('张三' , '物理' , 93)
insert into tb values('李四' , '语文' , 74)
insert into tb values('李四' , '数学' , 84)
insert into tb values('李四' , '物理' , 94)
go
--SQL SERVER 2000 静态SQL,指课程只有语文、数学、物理这三门课程。(以下同)
select 姓名 as 姓名 ,
   max(case 课程 when '语文' then 分数 else 0 end) 语文,
   max(case 课程 when '数学' then 分数 else 0 end) 数学,
   max(case 课程 when '物理' then 分数 else 0 end) 物理
from tb
group by 姓名
--SQL SERVER 2000 动态SQL,指课程不止语文、数学、物理这三门课程。(以下同)
declare @sql varchar(8000)
set @sql = 'select 姓名 '
select @sql = @sql + ' , max(case 课程 when ''' + 课程 + ''' then 分数 else 0 end) [' + 课程 + ']'
from (select distinct 课程 from tb) as a
set @sql = @sql + ' from tb group by 姓名'
exec(@sql)
--SQL SERVER 2005 静态SQL。
select * from (select * from tb) a pivot (max(分数) for 课程 in (语文,数学,物理)) b
--SQL SERVER 2005 动态SQL。
declare @sql varchar(8000)
select @sql = isnull(@sql + ',' , '') + 课程 from tb group by 课程
exec ('select * from (select * from tb) a pivot (max(分数) for 课程 in (' + @sql + ')) b')
---------------------------------
/*
问题：在上述结果的基础上加平均分，总分，得到如下结果：
姓名 语文 数学 物理 平均分 总分
---- ---- ---- ---- ------ ----
李四 74 84 94 84.00 252
张三 74 83 93 83.33 250
*/上面是例子。看懂了就容易

Answer 2

这个case   when then  end。我用过，查了下，Access不支持，只支持IIf

Answer 3

ACCESS的行列转换一般用transform,楼主可以查找一下，但楼主要的这种效果，不是简单地一步就可得到这种结果。
先通过transform生成标准的行列转换，再从这个结果中组合一下，看看是否可以满足。