eroshands Postado Julho 22, 2004 Denunciar Share Postado Julho 22, 2004 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.beginwhile not TB_Gra001.EOF dobeginCOmbobox1.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.dbfSeguinte, 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 coloqueiqr_loc.Close;qr_loc.Open;With qr_loc doQR_loc.SQL.Text := 'Select * from GRA001 '+'Where Status =:ComboBox1.Items';if ComboBox1.Items = QR_LocSTATUS thenDBGrid1.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 Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Corposemalma Postado Julho 23, 2004 Denunciar Share Postado Julho 23, 2004 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; Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Corposemalma Postado Julho 28, 2004 Denunciar Share Postado Julho 28, 2004 UP!Voce tentou usar o procedimento que eu postei? Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
eroshands
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
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.