farhadkarimi
جمعه 14 مهر 1391, 09:59 صبح
سلام
چگونه مي شود اطلاعات يك جدول BDE را در جدول ديگر كپي كرد؟ من كد زير را نوشتم چرا جواب نمي دهد اگر راه بهتري هست راهنمايي كنيد؟
mkh2.open;
mkh2.edit;
while(not(mkh1.Eof))do
begin
mkh2.FieldValues['row']:=mkh1.FieldValues['row'];
mkh2.FieldValues['name']:=mkh1.FieldValues['name'];
mkh2.FieldValues['thickness']:=mkh1.FieldValues['thickness'];
mkh2.FieldValues['length']:=mkh1.FieldValues['length'];
mkh2.FieldValues['wide']:=mkh1.FieldValues['wide'];
mkh2.FieldValues['diameter']:=mkh1.FieldValues['diameter'];
mkh2.FieldValues['metraj']:=mkh1.FieldValues['metraj'];
mkh2.FieldValues['material']:=mkh1.FieldValues['material'];
mkh2.FieldValues['mass']:=mkh1.FieldValues['mass'];
mkh2.FieldValues['standard']:=mkh1.FieldValues['standard'];
mkh2.Next;
mkh1.Next;
end;
چگونه مي شود اطلاعات يك جدول BDE را در جدول ديگر كپي كرد؟ من كد زير را نوشتم چرا جواب نمي دهد اگر راه بهتري هست راهنمايي كنيد؟
mkh2.open;
mkh2.edit;
while(not(mkh1.Eof))do
begin
mkh2.FieldValues['row']:=mkh1.FieldValues['row'];
mkh2.FieldValues['name']:=mkh1.FieldValues['name'];
mkh2.FieldValues['thickness']:=mkh1.FieldValues['thickness'];
mkh2.FieldValues['length']:=mkh1.FieldValues['length'];
mkh2.FieldValues['wide']:=mkh1.FieldValues['wide'];
mkh2.FieldValues['diameter']:=mkh1.FieldValues['diameter'];
mkh2.FieldValues['metraj']:=mkh1.FieldValues['metraj'];
mkh2.FieldValues['material']:=mkh1.FieldValues['material'];
mkh2.FieldValues['mass']:=mkh1.FieldValues['mass'];
mkh2.FieldValues['standard']:=mkh1.FieldValues['standard'];
mkh2.Next;
mkh1.Next;
end;