F�rum acrescentar colunas no dbgrid #573475

03/01/2017

Pessoal tenho um dbgrid com 3 colunas valor1, valor2, valor3 ... e tenho uma combobox com os valor 0, 2, 3, 4, 5
gostaria de saber se tem como eu selecionar o valor 3 na combo e no dbgrid acrescentar mais 3 colunas valor4, valor5, e valor6 ou seja a grid aumenta aqtde de colunas de acordo com o valor da combo, mas as colunas tem que esta ligadas aos campos valores da tabela.???????

existe a possibilidade de se fazer isto??

Antonio Santos

Curtir t�pico

+ 0

Responder

Posts

04/01/2017

Raimundo Pereira

Boa tarde,
Veja se ajuda..

procedure TForm1.Button1Click(Sender: TObject);
var ValorCBX :integer;
  I: Integer;
begin
//DBGrid1.Columns.Clear;//Exclui colunas do dbgrid

try
ValorCBX:=DBGrid1.Columns.Count+StrToInt(ComboBox1.Text);

for I := DBGrid1.Columns.Count to ValorCBX-1 do
begin
 DBGrid1.Columns.Add;
 DBGrid1.Columns[i].Title.Caption:=('Coluna - '+IntToStr(i));
end;

except
ShowMessage('Conte�do informado n�o � n�mero');
end;


end;

Responder

Gostei + 0