copiar dados do dbgrid para stringgrid

03/02/2006

0

caros amigos, como faço para copiar todos os dados de um dbgrid para uma stringgrid,



preciso fazer isso com todos os dados do meu grid


valeu


Fernando

Fernando

Responder

Posts

03/02/2006

Cabelo

Procedure P_Copia_Grid(l_clientDataSet : TClientDataSet);
var v_i, v_j : integer;
begin
l_clientDataSet.First;
for v_i := 0 to l_clientDataSet.recordCount - 1 do
begin
for v_j := 0 to l_clientdataSet.FieldCount - 1 do
begin
StringGrid1.cells[v_j, v_i] := l_clientDataSet.fieldbyname(
l_clientDataSet.fields[v_j].fieldname).asstring;
end;
end;


Responder

04/02/2006

Fernando

nao estou conseguindo fazer essa copia, no stringrid so aparece o primeiro registro varias vezes


valeu


Responder

04/02/2006

Edilcimar

I := 1;
While not Table1.eof do
Begin
Variavel1 := FieldByName(´CAMPO1´).AsInteger;
Variavel2 := FieldByName(´CAMPO2´).AsString;
Variavel3 := FieldByName(´CAMPO3´).AsFloat;
StringGrid1.Cells[0,I] := IntToStr(Variavel1);
StringGrid1.Cells[1,I] := Variavel2;
StringGrid1.Cells[2,I] := FloatToStrF(Variavel3);
I := I + 1;
StringGrid1.RowCount := I + 1;
Next;
End;


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar