Captions da coluna do grid deverá ser o conteudo de uma tabe

Delphi

15/02/2003

valeu pela ajuda galera mais ainda não solucionei o problema


Pessoal preciso montar um Grid que vai ter duas colunas fixas e depois quero que o restante das colunas seja o resultado da leitura de uma tabela que vai conter no máximo 6 registros, é possível fazer isso?

exemplo

Tabela fornecedor com os campos e conteudo

Codigo Nome
01 Fornecedor A
02 Fornecedor B
03 Fornecedor C

queria montar um grid agora com a seguinte estrututa:

Codigo Descrição Fornecedor A Fornecedor B Fornecedor C
001 Peca A 10,50 10,80 10,90

ou seja mostraria o valor da peça de cada fornecedor a query para montar o Grid eu faço, não consigo é criar o gri.


Anonymous

Anonymous

Curtidas 0

Respostas

Anonymous

Anonymous

15/02/2003

Crie as colunas do Grid em tempo de execução:

Query2 -> Tabela com os nomes dos Fornecedores;


Query2.Open;
Grid.Columns.Clear;
Grid.Columns.Add;
Grid.Columns[0].Tittle := ´Código´;
Grid.Columns[0].Width := 60;
Grid.Columns[0].Field := Query.FieldByName(´Codigo´);
Grid.Columns.Add;
Grid.Columns[1].Tittle := ´Nome´;
Grid.Columns[1].Width := 150;
Grid.Columns[1].Field := Query.FieldByName(´Nome´);
Grid.Columns.Add;
Grid.Columns[2].Tittle := Query2.FieldByName(´Nome´).AsString;
Grid.Columns[2].Width := 80;
Grid.Columns[2].Field := Query.FieldByName(´Valor_Forn_1´);
Grid.Columns.Add;
Query2.Next;
Grid.Columns[3].Tittle := Query2.FieldByName(´Nome´).AsString;
Grid.Columns[3].Width := 80;
Grid.Columns[3].Field := Query.FieldByName(´Valor_Forn_2´);
Query2.Next;
Grid.Columns[4].Tittle := Query2.FieldByName(´Nome´).AsString;
Grid.Columns[4].Width := 80;
Grid.Columns[4].Field := Query.FieldByName(´Valor_Forn_3´);

Query2.Close;


GOSTEI 0
POSTAR