Copiar Toda a tabela do DBGrid para um StringGrid
Boa Noite como o titulo já diz eu preciso copiar os valores que estão no DBgrid para um stringgrid, eu uso Zeos,
Leonardo
Curtidas 0
Melhor post
Anderson Amaral
03/06/2019
Boa Noite como o titulo já diz eu preciso copiar os valores que estão no DBgrid para um stringgrid, eu uso Zeos,
Bom dia Leonardo, pelo que entendi da pergunta, talvez seja algo conforme exemplo abaixo:
var
i, ii : Integer;
begin
QryDadosDBgrid.Open; //dataset onde estão os dados exibidos na DbGrid;
while not(QryDadosDBgrid.Eof) do
begin
for i:= 1 to StringGrid1.RowCount do
begin
for ii:= 1 to StringGrid1.ColCount do
begin
StringGrid1.Cells[ii,i] := AQryServicosEmOS.Fieldbyname('NOMEDOCAMPODESEJADO').AsString;
end;
end;
QryDadosDBgrid.Next;
end;
end;
end;
Espero que contribua, abraços!
GOSTEI 1