各位大侠,我照抄fastreport 的例程
但出现这样的错误
undeclared identifer "c"
程序片段如下:
请指点:
procedure Tyyrb.frxReport1BeforePrint(Sender: TfrxReportComponent);
var
Cross: TfrxCrossView;
i, j: Integer;
begin
if c is TfrxCrossView then
begin
Cross := TfrxCrossView(c); adoquery5.First;
i := 0;
while not adoquery5.Eof do
begin
for j := 0 to adoquery5.Fields.Count - 1 do
Cross.AddValue([i], [adoquery5.Fields[j].DisplayLabel], [adoquery5.Fields[j].AsString]); adoquery5.Next;
Inc(i);
end;
end;end;undeclared identifer "c"
但出现这样的错误
undeclared identifer "c"
程序片段如下:
请指点:
procedure Tyyrb.frxReport1BeforePrint(Sender: TfrxReportComponent);
var
Cross: TfrxCrossView;
i, j: Integer;
begin
if c is TfrxCrossView then
begin
Cross := TfrxCrossView(c); adoquery5.First;
i := 0;
while not adoquery5.Eof do
begin
for j := 0 to adoquery5.Fields.Count - 1 do
Cross.AddValue([i], [adoquery5.Fields[j].DisplayLabel], [adoquery5.Fields[j].AsString]); adoquery5.Next;
Inc(i);
end;
end;end;undeclared identifer "c"
看看uses是不是需要引用其他单元
undeclared identifer "c"?这个东西在哪里声明?请高人赐教!