Captions da coluna do grid deverá ser o conteudo de uma tabe
15/02/2003
0
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.
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
Curtir tópico
+ 0
Responder
Posts
15/02/2003
Anonymous
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;
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;
Responder
Clique aqui para fazer login e interagir na Comunidade :)