Buenas, mi problema es el siguiente, tengo un cxGrid al cual tengo que agregarles varios sub-niveles pero cuando intento llenar dichos sub-niveles me salen en blanco, la información la tengo almacenada en un objectList<generico> el cual recorro con un for, mi codigo es el siguiente (esto se ejecuta desde un boton):
Código Delphi
[-]procedure TForm2.btn_cargaGridViewClick(Sender: TObject);
var
libros : TObjectList;
I: Integer;
k: Integer;
begin
libros := TObjectList.create;
libros := libroDataO.GetLibros;
with vistaLibros do
begin
for I := 0 to libros.Count - 1 do
begin
if libros.Count = vistaLibros.DataController.RowCount then
begin
break;
end
else
begin
vistaLibros.DataController.Append;
vistaLibros.DataController.Values[I,0] := libros[i].codLibro;
vistaLibros.DataController.Values[I,1] := libros[i].titulo;
vistaLibros.DataController.Values[I,2] := libros[i].anno;
vistaLibros.DataController.Values[I,3] := libros[i].enStock;
vistaLibros.DataController.Post(True);
with vistaAutor do
begin
vistaAutor.DataController.Append;
vistaAutor.DataController.Values[0,0] := libros[i].autor.codAutor;
vistaAutor.DataController.Post(true);
end;
end;
end;
end;
end;
tambien tengo algo similar en el evento del + del grid(el boton que despliega el sub-nivel) y es algo asi:
Código Delphi
[-]procedure TForm2.cxGridLevelAutorGetGridView(Sender: TcxGridLevel;
AMasterRecord: TcxCustomGridRecord; var AGridView: TcxCustomGridView);
begin
vistaAutor.BeginUpdate;
with vistaAutor.DataController do
begin
Append;
Values[0,0] := 'prueba de inserción de texto';
Post(True);
end;
vistaAutor.EndUpdate;
end;
He probado de varias formas con cada uno de los métodos que están aquí y lo que siempre obtengo como resultado es lo de la imagen, me gustaría saber que puedo hacer para agregarle información al sub-nivel porque aparte de ese tengo otros sub-niveles que también tengo que hacerles algo similar. De antemano les agradezco cualquier ayuda que me puedan brindar.