Fórum evitar repetição no combobox #292758
23/08/2005
0
Estou desenvolvendo uma aplicação que prescisa pegar valores duplicados no banco de dados, mas eu não quero que quando a pessoa consulte venha os dados duplicados somente um registro unico.
por algum problema do FireBird que eu não entendo eu não consigo usar funções SQL(Distinct ou group by) pela rede só localmente porém a aplicação é cliente servidor será que alguém pode me ajudar estou pensando em jogar em combobox e fazer via programação porém eu não sei mexer muito bem com os metódos do objeto combo.
jujan
por algum problema do FireBird que eu não entendo eu não consigo usar funções SQL(Distinct ou group by) pela rede só localmente porém a aplicação é cliente servidor será que alguém pode me ajudar estou pensando em jogar em combobox e fazer via programação porém eu não sei mexer muito bem com os metódos do objeto combo.
jujan
Jujan
Curtir tópico
+ 0
Responder
Posts
23/08/2005
Wilson Brito
If ComboBox1.Items.IndexOf(´Teste´) = -1 then
ComboBox1.Items.Add(´Teste´);
InexOf retorna a posição do ítem no tstring, ou seja, se ele retornar -1 significa que ainda não existe no combo.
ComboBox1.Items.Add(´Teste´);
InexOf retorna a posição do ítem no tstring, ou seja, se ele retornar -1 significa que ainda não existe no combo.
Responder
Gostei + 0
23/08/2005
Jujan
O codigo ficou assim:
procedure TForm1.Button7Click(Sender: TObject);
begin
QryAgrupar.Close;
QryAgrupar.SQL.Clear;
QryAgrupar.SQL.Add(´select numero,NOME from tbl_equipes,tab_funcionario´);
QryAgrupar.SQL.Add(´where tbl_equipes.numero_lider=tab_funcionario.numero´);
QryAgrupar.Open;
while not(QryAgrupar.Eof) do
begin
If ComboBox1.Items.IndexOf(QryAgrupar.fieldbyname(´numero´).AsString) = -1 then
ComboBox1.Items.Add(QryAgrupar.fieldbyname(´numero´).AsString);
QryAgrupar.Next;
end;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
QryAgrupar.Close;
QryAgrupar.SQL.Clear;
QryAgrupar.SQL.Add(´select numero,NOME from tbl_equipes,tab_funcionario´);
QryAgrupar.SQL.Add(´where tbl_equipes.numero_lider=tab_funcionario.numero´);
QryAgrupar.Open;
while not(QryAgrupar.Eof) do
begin
If ComboBox1.Items.IndexOf(QryAgrupar.fieldbyname(´numero´).AsString) = -1 then
ComboBox1.Items.Add(QryAgrupar.fieldbyname(´numero´).AsString);
QryAgrupar.Next;
end;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)