Discussion :

[NapsterVB]

bonjour ,
tout D'abord je remercie a tous les membres qui etulisent ce from pour aidez les autres ..
j'ai un problem en Listbox !
j'ai un petit projet d'interfacer une base de donner
cette base de donnée contient 7 table
je voudrais faire a chaque click sur un items [1]de listbox1 mafichera ma premiere table sur DBgrid1 ou StrinGrid1 et la meme chose pour la desieme table et la 3eme et la 4eme et la 5eme ....etc.
et merci je suis preneur tout astuces .

[evarisnea]

je suppose que tu as 7 éléments dans une ListBox, 1 composant DBGrid,7 composants d'accès à tes tables et 7 DataSource chacune reliée à son composant d'accès à une table.
Dans l'évènemnt OnClick de ta ListBox, tu peux mettre un code similaire à celui ci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TMaForm.ListBox1Click(Sender:TObject);
begin
  case ListBox1.ItemIndex of
  0:DBGrid1.DataSource := DataSource1;
  1:DBGrid1.DataSource := DataSource2;
  2:DBGrid1.DataSource := DataSource3;
  3:DBGrid1.DataSource := DataSource4;
  4:DBGrid1.DataSource := DataSource5;
  5:DBGrid1.DataSource := DataSource6;
  6:DBGrid1.DataSource := DataSource7;
  else
    DBGrid1.DataSource := nil;
  end;
end;

voila, j'espère que ça va t'aider.