Seleção Multipla DBGrid !!!!
caros colegas, em um form coloqeui um dbgrid onde aparecem diversos registros, o que eu preciso e apenas selecionar alguns e quando imprimir só estes sairem....como fazer isto ??? ( selecionar alguns e mandar somente estes para impressão )
abs...
Oscar Luiz
abs...
Oscar Luiz
Oscarluiz
Curtidas 0
Respostas
Jycn
27/02/2003
Olá, veja se isto resolve..
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
if DBGrid1.SelectedRows.Count>0 then begin
with DBGrid1.DataSource.DataSet do begin
for i:=0 to DBGrid1.SelectedRows.Count-1 do begin
GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
Listbox1.Items.Add(Fields[1].AsString);
end;
end;
end;
end;
Jycn
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
if DBGrid1.SelectedRows.Count>0 then begin
with DBGrid1.DataSource.DataSet do begin
for i:=0 to DBGrid1.SelectedRows.Count-1 do begin
GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
Listbox1.Items.Add(Fields[1].AsString);
end;
end;
end;
end;
Jycn
GOSTEI 0
Anonymous
27/02/2003
Valeu mesmo....
[]´s
Oscar Luzi
[]´s
Oscar Luzi
GOSTEI 0