请问Cross.AddValue的用法

Question

请问Cross.AddValue的用法

Answer 1

procedure TfrmCPreview.frxReportBeforePrint(Sender: TfrxReportComponent);
var
  i: Integer;
  Cross: TfrxCrossView;
  f: TField;
begin
  if Sender is TfrxCrossView then
  begin
    Cross := TfrxCrossView(Sender);
    if Cross.Name='Cross' then
      with frxDBDataset.DataSet do
      begin
        First;
        while not Eof do
        begin
          for i := 0 to Fdbg.Columns.Count - 1 do
            if Fdbg.Columns[i].Visible then
            begin
              f := FindField(Fdbg.Columns[i].FieldName);
              if f<>nil then Cross.AddValue([RecNo - 1],
                [Fdbg.Columns[i].Title.Caption], [f.AsString]);
            end;
          Next;
        end;
      end;
  end;
end;