listview有关问题,

listview问题,急!!!
数据库中有一表,值如下

姓名         客户名称         金额
A                 b                       100
B                 c                       200

现在想在listview中显示如下

姓名       B           C          
A             100        
B                         200

不知如何写代码?请各位帮个忙,急!!!

[解决办法]
AItem:=ListView1.Items.Add;
AItem.Caption:= 'XXXX ';
AItem.SubItems.Add( 'XXXXX ');
AItem.SubItems.Add( 'XXXXX ');
[解决办法]
判断一下就行了

with adoquery1 do
begin
with Listview1.add do
begin
Caption := fieldbyname( '姓名 ').Asstring;
if fieldbyname( '客户名称 ').asstring = 'B ' then
SubItems[0].Caption := fieldbyname( '客户名称 ').asstring
else if fieldbyname( '客户名称 ').asstring = 'C ' then
SubItems[1].Caption := fieldbyname( '客户名称 ').asstring;
end]
Next;
end
[解决办法]
var
iColumn:TListColumn;

with adoquery1 do
begin
with Listview1.add do
begin
Caption := fieldbyname( '姓名 ').Asstring;

iColumn:=ListView1.Columns.Add;//增加标题
iColumn.Caption:=fieldbyname( '客户名称 ').asstring ;//

if fieldbyname( '客户名称 ').asstring = 'B ' then
SubItems[0].Caption := fieldbyname( '客户名称 ').asstring
else if fieldbyname( '客户名称 ').asstring = 'C ' then
SubItems[1].Caption := fieldbyname( '客户名称 ').asstring;
end;
Next;
end