你可以这么做:创建一个有四个列的表(newtable):工资1 奖金1 工资2 奖金2 Var i:integer; ==================== if NewTable.active then NewTable.active:=false; NewTable.EmptyTble; NewTable.active:=true; i:=0; with OldTable do Begin if not active then active:=true else first; while not eof do begin if i=0 then begin newtable.append; newtable.edit; newtable.fieldbyname('工资1').value:=fields[0].value; newable.fieldbyname('奖金1').value:=fields[1].value; i:=1; end else begin newtable.fieldbyname('工资2').value:=fields[0].value; newable.fieldbyname('奖金2').value:=fields[1].value; newtable.post; i:=0; end; next; end; newtable1.post; End; 然后,用此NEWTABLE做为你要做的报表的数据源
直接在程序中给qrlabel赋值
yes
右击quickreport便可以找到了
Var
i:integer;
====================
if NewTable.active then
NewTable.active:=false;
NewTable.EmptyTble;
NewTable.active:=true;
i:=0;
with OldTable do
Begin
if not active then
active:=true
else
first;
while not eof do
begin
if i=0 then
begin
newtable.append;
newtable.edit;
newtable.fieldbyname('工资1').value:=fields[0].value;
newable.fieldbyname('奖金1').value:=fields[1].value;
i:=1;
end
else
begin
newtable.fieldbyname('工资2').value:=fields[0].value;
newable.fieldbyname('奖金2').value:=fields[1].value;
newtable.post;
i:=0;
end;
next;
end;
newtable1.post;
End;
然后,用此NEWTABLE做为你要做的报表的数据源
工资 奖金 工资 奖金
120 200 300 500