Discussion :

[sondo]

Bonjour,

Je veux comparer le contenue d'un ListBox et d'un DbGrid. Une requête rempli une colonne dans un DbGrid. J'ai crée une liste dans ListBox.
Je veux comparer les données affichées dans la DbGrid avec la ListBox. Si une ligne de la DbGrid est égale à une ligne de la ListBox, la ligne de la LisBox est supprimer, et ainsi de suite jusqu'à la fin de la DbGrid.
Merci pour toutes contributions.

[sat83]

C'est pas très compliqué!

Tu fais deux boucles imbriqués:
- la première pour itérer sur tes enregistrements (une boucle while)
- la seconde pour itérer sur ta listbox (une boucle for).

Ensuite tu fais une simple comparaison, (un test if) et si les chaine sont égales, tu supprime la ligne correspondante de ta ListBox...

Fait un essai, et poste ton code si jamais tu a un problème...

Bon courage

[sondo]

J'ai apprise à faire des boucles avec des chiffres, mais jamais avec des DbGrid ou ListBox. Voici quelque chose, je sais que c'est pas fameux mais...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
While DbGrid1.SelectedRows.Count > 0 do
                 begin
                   For i = 1 to listBox1.SelCount > 0 do
                       begin
                         if DbGrid1.SelectedRows = ListBox1.Items then
                            LisTbox1.Items.Destroy;
                       end;
                 end;

[skywaukers]

Bonsoir,

ton DBGrid se rempli à partir d'un Dataset, il te suffit donc de parcourir ton dataset, puis de boucler sur les lignes de ta listbox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
MonDataset.first;
while not( MonDataset.eof) do
begin
  for i := 0 to MaListBox.count - 1 do
  begin
    ..
  end;
 
  MonDataset.next;
end;

@++
Dany

[sondo]

Merci, mais ces lignes de mon code, pose problème. Pouvez-vous m'aider?.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if DbGrid1.SelectedRows = ListBox1.Items then
                            LisTbox1.Items.Destroy;

Merci.

[skywaukers]

Bonsoir,

je mettais plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if MonDatasetMonChamp.Value = MaListBox.Items[ i] then
  MaListBox.items.Delete( i);

@++
Dany