我的报表7行3列如下,用的是零时数据集
D7
D8
KSOOA
KSOOB
KDMEEI
IEUI
IDWOE9983 如何改程序才能成为下面这样3行3列啊?
KSOOA D7 IEUI
KSOOB D8 IDWOE9983
KDMEEI
D7
D8
KSOOA
KSOOB
KDMEEI
IEUI
IDWOE9983 如何改程序才能成为下面这样3行3列啊?
KSOOA D7 IEUI
KSOOB D8 IDWOE9983
KDMEEI
代码如下
with cdsKnitNotice do
begin
Cds.First;
while not Cds.EOF do
begin
append; FieldByName('TYPEName').Value:=Cds.FieldByName('TYPEName').AsString;
if FieldByName ('TYPEName').Value='事项'then FieldByName ('NE').value:=Cds.FieldByName('CODE').AsString; else if FieldByName ('TYPEName').Value='要求' then FieldByName ('HF').value:=Cds.FieldByName('CODE').AsString; else if FieldByName ('TYPEName').Value='包装' then FieldByName ('PK').value:=Cds.FieldByName('CODE').AsString;
end
Post;
end;
end; 报表中有3个DBText,dbtext1,dbtext2,dbtext3分别对应NE,HF,PK
打印报表就会出现我一楼说到的问题,该怎么样改我的代码呢
cds表的内容
要求 D7
要求 D8
事项 KSOOA
事项 KSOOB
事项 KDMEEI
包装 IEUI
包装 IDWOE9983
typename CODE
要求 D7
要求 D8
事项 KSOOA
事项 KSOOB
事项 KDMEEI
包装 IEUI
包装 IDWOE9983
insert into @a select '','D7',''
union all select '','D8',''
union all select 'KSOOA','',''
union all select 'KSOOB','',''
union all select 'KDMEEI','',''
union all select '','','IEUI'
union all select '','','IDWOE9983' select col = col1 + col2 + col3 from @a---------------------------------------------
D7
D8
KSOOA
KSOOB
KDMEEI
IEUI
IDWOE9983(7 行受影响)