Ir para conteúdo
Fórum Script Brasil
  • 0

Mover Dados Para O Grid


eroshands

Pergunta

Estou com a seguinte duvida.

Não estou conseguindo transpor os dados para o Grid.

O programinha tem de fazer o seguinte.

Tem um combobox que esta pegando de uma tabela apenas um dado, chamado STATUS. Sendo assim, no evendo OnShow do Formulario coloquei.

begin

while not TB_Gra001.EOF do

begin

COmbobox1.items.add(TB_Gra001.fieldbyname('STATUS').asstring);

TB_Gra001.next;

end;

end;

Com isso ele vai colocar dentro do combobox todos os status da tabela GRa001.dbf

Seguinte, ao selecionar qualquer um dos status neste combobox, no grid, deverá aparecer a descrição e o arquivo relacionado ao item selecionado.

Sendo assim, no evendo onChang do combobox coloquei

qr_loc.Close;

qr_loc.Open;

With qr_loc do

QR_loc.SQL.Text := 'Select * from GRA001 '+'Where Status =:ComboBox1.Items';

if ComboBox1.Items = QR_LocSTATUS then

DBGrid1.Columns[0] := QR_Loc.fieldbyname'ARQUIVO';

DBGrid1.Columns[1] := QR_Loc.fieldbyname'DESCRI';

DBGrid1.Columns[2] := QR_Loc.fieldbyname'OBS';

end;

Sei que isso esta errado...Por isso, que pergunto. Como fazer?

Sem mais.

SDS

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

Voce criou um parametro, mas não setou o valor dele..

Begin
qr_loc.Close;
qr_loc.Open;

QR_loc.SQL.Text := 'Select * from GRA001 Where Status = :parametro';

QR_loc.ParamByName('parametro').AsString := // aqui voce igual, não tenho certeza se ( ComboBox1.Items ) vai funcionar, o importante é que retorne o valor do campo selecionado no ComboBox

if ComboBox1.Items = QR_LocSTATUS then
DBGrid1.Columns[0] := QR_Loc.fieldbyname'ARQUIVO';
DBGrid1.Columns[1] := QR_Loc.fieldbyname'DESCRI';
DBGrid1.Columns[2] := QR_Loc.fieldbyname'OBS';
end;

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...