Fórum Seleção Multipla DBGrid !!!! #141666
27/02/2003
0
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
Curtir tópico
+ 0
Responder
Posts
27/02/2003
Jycn
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
Responder
Gostei + 0
27/02/2003
Anonymous
Valeu mesmo....
[]´s
Oscar Luzi
[]´s
Oscar Luzi
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)