Memory Tablodan reel tabloya yazma...

[mehmeta]

Merhaba üstadlar;

Progamcılıkta yeni olduğum için bu tür sorularla sizleri yoruyor ve zamanınızı alıyorsak lütfen kusurumuza bakmayın..

Benim sorum şu:

Memory tabloda tuttuğum datalarım var.Bunları reel olarak hazırladığım tabloya yazmak istiyorum. (Tablo alanları ve tipleri aynı).Nasıl yapabilirim?

Saygılar,

[serkan]

Kod: Tümünü seç

memtablo.first;
gercektablo.open;
while not memtablo.eof do begin
gercektablo.append;
gercektabloALAN1.text:=memtabloALAN1.text;
gercektabloALAN2.text:=memtabloALAN2.text;
gercektabloALAN3.text:=memtabloALAN3.text;
gercektablo.post;
memtablo.next;
end;

kaydetme butonuna yukardaki gibi bir kod yazarsan işin görülür sanırım.

[mehmeta]

Verdiğiniz kodu denedim ancak process stop deyip çakılıyor.

Kod aşağıdaki gibi;

memdb.First;
Table1.Open;
while not memdb.Eof do begin
Table1Opno.Value:=memdbOprNo.Value;
Table1Ismrk.Value:=memdbWorkCenter.Value;
Table1.Post;
memdb.Next;
end;

[serkan]

Table1Opno.Value:=memdbOprNo.Value;

kodunun üstüne

Table1.append;
ekleyin

Kod: Tümünü seç

memdb.First;
Table1.Open;
while not memdb.Eof do begin
Table1.append;
Table1Opno.Value:=memdbOprNo.Value;
Table1Ismrk.Value:=memdbWorkCenter.Value;
Table1.Post;
memdb.Next;
end;

[mehmeta]

Üstadım;

Okeydir..

Teşekkür ediyorum...

Saygılar....