create crosstab from code

aldi06

Hi ...
i try this...

procedure TForm1.Button1Click(Sender: TObject);
var kros:TfrxDBCrossView;
begin
kros:=TfrxDBCrossView(frxreport1.FindObject('Dbcross1'));
kros.CreateUniqueName;
kros.SetBounds(50,100,60,30);
kros.ColumnFields.Add('field1');
kros.ColumnLevels := 1;
kros.RowFields.Add('field2');
kros.RowLevels := 1;
kros.CellFields.Add('field3');
kros.CellLevels := 1;
kros.Dataset :=frxDBDataset1;
frxReport1.ShowReport(true);
end;

how to disable subtotal on field1 ?
how to change caption of field1 ?

tks

gpi

Use

var kros:TfrxDBCrossView;
begin
kros:=TfrxDBCrossView(frxreport1.FindObject('Dbcross1'));
kros.SetBounds(50,100,60,30);
kros.ColumnFields.Add('Year');
kros.ColumnFields.Add('Month');
kros.CornerMemos[1].Text:='Test';
kros.ColumnLevels := 2;
kros.ColumnTotalMemos[1].Visible:=False;
kros.RowFields.Add('Name');
kros.RowLevels := 1;
kros.CellFields.Add('Salary');
kros.CellLevels := 1;
kros.Dataset :=frxDBDataset1;
frxReport1.ShowReport();
end;