07-15-2020, 03:21 PM
hi
i tried buid columns in a grid at run time.
begin
IWjQDBGrid2.ClearGridData;
IWjQDBGrid2.Columns.Clear;
with IWjQDBGrid2.Columns do
begin
Add;
TjQGridDBColumn(IWjQDBGrid2.Columns[0]).FieldName := 'Client_Code';
TjQGridDBColumn(IWjQDBGrid2.Columns[0]).Title := 'Code';
TjQGridDBColumn(IWjQDBGrid2.Columns[0]).Visible := True;
end;
with IWjQDBGrid2.Columns do
begin
Add;
TjQGridDBColumn(IWjQDBGrid2.Columns[1]).FieldName := 'Client_Name';
TjQGridDBColumn(IWjQDBGrid2.Columns[1]).Title := 'Name';
TjQGridDBColumn(IWjQDBGrid2.Columns[1]).Visible := True;
end;
FDQuery1.Open;
IWjQDBGrid2.RefreshData;
IWjQDBGrid2.ShowColumn('Column0');
IWjQDBGrid2.ShowColumn('Column1');
i see there are 2 columns in the grid.
but idont see the data...
any idea?
i tried buid columns in a grid at run time.
begin
IWjQDBGrid2.ClearGridData;
IWjQDBGrid2.Columns.Clear;
with IWjQDBGrid2.Columns do
begin
Add;
TjQGridDBColumn(IWjQDBGrid2.Columns[0]).FieldName := 'Client_Code';
TjQGridDBColumn(IWjQDBGrid2.Columns[0]).Title := 'Code';
TjQGridDBColumn(IWjQDBGrid2.Columns[0]).Visible := True;
end;
with IWjQDBGrid2.Columns do
begin
Add;
TjQGridDBColumn(IWjQDBGrid2.Columns[1]).FieldName := 'Client_Name';
TjQGridDBColumn(IWjQDBGrid2.Columns[1]).Title := 'Name';
TjQGridDBColumn(IWjQDBGrid2.Columns[1]).Visible := True;
end;
FDQuery1.Open;
IWjQDBGrid2.RefreshData;
IWjQDBGrid2.ShowColumn('Column0');
IWjQDBGrid2.ShowColumn('Column1');
i see there are 2 columns in the grid.
but idont see the data...
any idea?