اظهار سجل فارغ نتيجة تحويل من جدول الى اخر

[medreg]

السلام عليكم ورحمة الله تعالى وبركاته
عندما تتم عملية التحويل من الجدول2 الى الجدول1 مع الشرط
يظهر سجل فارغ قبل السحلات المملوءة مع العلم ان الجدول2 ليس به سجل فارغ
هذه الصورة الجدول1 بعد عملية التحويل
[attachment=3521]
وهذا كود التحويل المستعمل

كود :

procedure TForm1.BitBtn1Click(Sender: TObject); var tNom,tPnm:String;    tCde,tCdC:integer;    Mont:Double; begin  DM.Table1.Close;  DM.Table1.EmptyTable;  DM.Table1.Open;  with DM do  begin    Table2.Open;    Table2.First;    While not Table2.Eof do    begin      If Table2BLq.Value=False then      begin      {Keep Previous values}      Mont:= Table2Montant.AsFloat;      tCde:= Table2cde.AsInteger;      tCdC:= Table2CdeC.AsInteger;      tNom:= Table2Nom.AsString;      tPnm:= Table2Prenom.AsString;      end;      Table2.Next;      if Table1.Locate('Cde;CdeC',vararrayof([tCde,tCdC]),[locaseinsensitive,lopartialkey]) then      begin      end else      begin        Table1.Append;        Table1.fieldvalues['Cde']:=tCde;        Table1.fieldvalues['CdeC']:=tCdC;        Table1.fieldvalues['Nom']:=tNom;        Table1.fieldvalues['Prenom']:=tPnm;        Table1.fieldvalues['Montant']:=Mont;        Table1.Refresh;      end;    end;  end; end; ماذا يجب علي فعله حتى لا يظهر وجزاكم الله عنا كل خير

[محمد عبد العزيز]

وعليكم السلام ورحمة الله وبركاته
جرب ما يلي

كود :

procedure TForm1.Button1Click(Sender: TObject); begin  with DM do  begin    Table1.Close;    Table1.EmptyTable;    Table1.Open;    Table2.Open;    Table2.First;    While not Table2.Eof do    begin      If Table2BLq.Value=False then      if not Table1.Locate('Cde;CdeC',vararrayof([tCde,tCdC]),[locaseinsensitive,lopartialkey]) then      begin        Table1.Append;        Table1.fieldvalues['Cde']:=Table2cde.AsInteger;        Table1.fieldvalues['CdeC']:=Table2CdeC.AsInteger;        Table1.fieldvalues['Nom']:=Table2Nom.AsString;        Table1.fieldvalues['Prenom']:=Table2Prenom.AsString;        Table1.fieldvalues['Montant']:=Table2Montant.AsFloat;        Table1.Post;      end;      Table2.Next;    end;  end; end;

[medreg]

وعليكم السلام ورحمة الله وبركاته
جرب ما يلي
بارك الله فيكم 
نسأل الله العلي القدير ان يضع كل مساعداتكم هذه في ميزان حسناتكم
آمين وجزاكم عنا كل خير