DBGRID et option.multiselect
yvessimon
Messages postés
637
Date d'inscription
mardi 22 avril 2003
Statut
Membre
Dernière intervention
9 janvier 2017
-
17 déc. 2008 à 14:48
yvessimon Messages postés 637 Date d'inscription mardi 22 avril 2003 Statut Membre Dernière intervention 9 janvier 2017 - 19 déc. 2008 à 09:03
yvessimon Messages postés 637 Date d'inscription mardi 22 avril 2003 Statut Membre Dernière intervention 9 janvier 2017 - 19 déc. 2008 à 09:03
1 réponse
yvessimon
Messages postés
637
Date d'inscription
mardi 22 avril 2003
Statut
Membre
Dernière intervention
9 janvier 2017
19 déc. 2008 à 09:03
19 déc. 2008 à 09:03
la solution :
procedure TForm1.SpeedButton7Click(Sender: TObject);
var
i: Integer;
begin
ListBox1.Clear ;
with DBGrid2.DataSource.DataSet do
begin
for i := 0 to DBGrid2.SelectedRows.Count-1 do
begin
GotoBookmark(Pointer(DBGrid2.SelectedRows.Items[i]));
// transfert dans le listebox de la colonne nomCol
ListBox1.Items.Add( AdoQuery1.FieldByName('nomCol').AsString );
end;
end;
end;
yvessimon
procedure TForm1.SpeedButton7Click(Sender: TObject);
var
i: Integer;
begin
ListBox1.Clear ;
with DBGrid2.DataSource.DataSet do
begin
for i := 0 to DBGrid2.SelectedRows.Count-1 do
begin
GotoBookmark(Pointer(DBGrid2.SelectedRows.Items[i]));
// transfert dans le listebox de la colonne nomCol
ListBox1.Items.Add( AdoQuery1.FieldByName('nomCol').AsString );
end;
end;
end;
yvessimon
