L
lj1918
Unregistered / Unconfirmed
GUEST, unregistred user!
Cross.AddValue(, [Table1.Fields[j].DisplayLabel], [Table1.Fields[j].AsString]);
关键是这一句
procedure TForm1.frxReport1BeforePrint(c: TfrxReportComponent);
var
Cross: TfrxCrossView;
i, j: Integer;
begin
if c is TfrxCrossView then
begin
Cross := TfrxCrossView(c);
Table1.First;
i := 0;
while not Table1.Eofdo
begin
for j := 0 to Table1.Fields.Count - 1do
Cross.AddValue(, [Table1.Fields[j].DisplayLabel], [Table1.Fields[j].AsString]);
Table1.Next;
Inc(i);
end;
end;
end;
end.
关键是这一句
procedure TForm1.frxReport1BeforePrint(c: TfrxReportComponent);
var
Cross: TfrxCrossView;
i, j: Integer;
begin
if c is TfrxCrossView then
begin
Cross := TfrxCrossView(c);
Table1.First;
i := 0;
while not Table1.Eofdo
begin
for j := 0 to Table1.Fields.Count - 1do
Cross.AddValue(, [Table1.Fields[j].DisplayLabel], [Table1.Fields[j].AsString]);
Table1.Next;
Inc(i);
end;
end;
end;
end.