Fórum QuantumGrid #152118

Jorge,
Meu problema é que eu não consigo inserir dados no segundo nível,
ou seja, eu coloquei no form uma TcxGrid e nela eu adicionei dois Levels
tvMaster e um level no tvMaster(TcxGridTableView), o tvDetail(TcxGridTableView). Eu consigo inserir dados no primeiro level(tvMaster), mas não consigo enteder como acessar no segundo Level (tvDetail).

Enviando o código do acesso aos levels:

unit QGrid;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxEdit,
DB, cxDBData, StdCtrls, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls,
cxGridCustomView, cxGrid, cxContainer, cxTextEdit, cxDataStorage;



type
TForm1 = class(TForm)
cxGrid1: TcxGrid;
cxGrid1Level1: TcxGridLevel;
tvMaster: TcxGridTableView;
cxGrid1Level2: TcxGridLevel;
tvDetail: TcxGridTableView;
tvMasterColumn1: TcxGridColumn;
tvMasterColumn2: TcxGridColumn;
tvMasterColumn3: TcxGridColumn;
tvDetailColumn1: TcxGridColumn;
tvDetailColumn2: TcxGridColumn;
Button1: TButton;
Button2: TButton;
btnAtribuiLevel1: TButton;
btnAtribuiLevel2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure btnAtribuiLevel1Click(Sender: TObject);
procedure btnAtribuiLevel2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
tvMaster.Columns[0].DataBinding.ValueTypeClass := TcxIntegerValueType;
tvMaster.Columns[1].DataBinding.ValueTypeClass := TcxIntegerValueType;
tvMaster.DataController.RecordCount := tvMaster.DataController.RecordCount + 1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
tvDetail.Columns[0].DataBinding.ValueTypeClass := TcxIntegerValueType;
tvDetail.Columns[1].DataBinding.ValueTypeClass := TcxIntegerValueType;
tvDetail.DataController.RecordCount := tvDetail.DataController.RecordCount + 1;
end;

procedure TForm1.btnAtribuiLevel1Click(Sender: TObject);
begin
tvMaster.DataController.Values[0,0] := 1;
tvMaster.DataController.Values[0,1] := 2;
end;

procedure TForm1.btnAtribuiLevel2Click(Sender: TObject);
begin
tvDetail.DataController.Values[0,0] := 4;
tvDetail.DataController.Values[0,1] := 5;
end;

end.

Obrigado,
Fergos