Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   ExpressPivotGrid (https://www.clubdelphi.com/foros/showthread.php?t=46567)

tal0 03-08-2007 17:39:44

ExpressPivotGrid
 
Una de las caracteristicas del ExpressPivotGrid, es el Drill Down, o sea que se te puede abrir un grid nuevo cuando das un click en una celda del primer grid.
En la web de devespress la informacion es muy minima, solo hay un dibujo y un trozo de codigo. Lo pruebo pero el delphi no reconoce TFrmDrillDown
Pego aqui el codigo y la explicacion a ver si alguien me puede ayudar...
gracias

The ExpressPivotGrid is designed to build summarized reports so that end-users can easily and quickly analyze large quantities of data. Features like filtering, top value display, hierarchical value arrangement on the axes, grand and group totals give you a wide range of tools to control the data's level of detail. The drill down capabilities available to you and your end-users within the suite allows you to easily analyze records that were used to calculate a specific summary.
Just a single line of code is required to obtain the TcxCustomDataSource object that maintains drill down data. You can use this object's methods to collect values for any row and column. Once you have obtained the desired values, you can visualize drill down data in any control you wish. And if you own any other Developer Express visual container control such as the ExpressQuantumGrid, you would simply supply the TcxCustomDataSource object to the control.
For example, the following code allows you to display drill down data within the ExpressQuantumGrid when you double-click within a cell. Note that the following code assumes that a popup form with a grid placed upon it already exists and the grid's main view is populated with the appropriate columns.


procedure TForm1.cxDBPivotGrid1DblClick(Sender: TObject);
var
ACrossCell: TcxPivotGridCrossCell;
AForm: TFrmDrillDown;
ADataSource: TcxCustomDataSource;
begin
with cxDBPivotGrid1.HitTest do
begin
if HitAtDataCell then
ACrossCell := (HitObject as TcxPivotGridDataCellViewInfo).CrossCell;
end;
AForm := TFrmDrillDown.Create(nil);
try
ADataSource := ACrossCell.CreateDrillDownDataSource;
try
AForm.TableView.DataController.CustomDataSource := ADataSource;
AForm.ShowModal;
finally
ADataSource.Free;
end;
finally
AForm.Free;
end;
end;

enlace a la web de devexpress: http://www.devexpress.com/products/v...-drilldown.xml

helius 13-10-2017 17:24:52

ExpressPivotGrid
 
Hola, estoy viendo el mismo tema, TFrmDrillDown se refiere a una forma que hay que crear, lo mas sencillo es solo ponerle un TcxGrid y solo renombrar el TcxGridDBTableView como TableView...
Pero... ya lo he hecho y no consigo que se creen en automatico las columnas y muestre datos, no marca ningun error o warning, según he investigado, agrege las 3 líneas después de asignar el ADatasource y el Showmodal de la forma:

Código Delphi [-]
AForm.TableView.DataController.CustomDataSource := ADataSource;              
AForm.TableView.DataController.BeginUpdate;   
AForm.TableView.DataController.CreateAllItems();   
AForm.TableView.DataController.EndUpdate;    
AForm.Showmodal;

Tendré que crearlas de alguna manera para que puedan ser mostradas en el TcxGrid...
Si lo haz resuelto y por favor lo puedas compartir.

Saludos


La franja horaria es GMT +2. Ahora son las 07:55:59.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi