delphi4arab منتديات دلفي للعرب

السلام عليكم ورحمة الله تعالى وبركاته
عندما تتم عملية التحويل من الجدول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;

(23-07-2017, 08:48 AM)B.M.AbdelAziZ كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته
جرب ما يلي
بارك الله فيكم
نسأل الله العلي القدير ان يضع كل مساعداتكم هذه في ميزان حسناتكم
آمين وجزاكم عنا كل خير

medreg

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

medreg