seyed_27
جمعه 20 آذر 1388, 14:01 عصر
من میخوام رکوردهای table3 رو باشرطی که مد نظرم هست در table 1 کپی کنم ولی نمیشه
شرط : اگه فیلد check مقدارش true بود کپی انجام بشه لازم به ذکره که جدول 1 با جدول 2 لینک شده
کد مربوطه:
adotable3.First;
adotable1.Last;
while (adotable3.Eof=false) do
begin
if adotable3.FieldValues['check']= true then
begin
//adotable1.FieldValues['code']+adotable1.FieldValues['fname']+adotable1.FieldValues['lname'];
////////////
adotable1.Append;
adotable1['name']:=adotable3.FieldValues['name'];
adotable1['family']:=adotable3.FieldValues['family'];
adotable1['name pedar']:=adotable3.FieldValues['name pedar'];
showmessage('added');
adotable1.Post;
///////////////////
//adotable3.Next
end;
//else
adotable3.Next;
end;
شرط : اگه فیلد check مقدارش true بود کپی انجام بشه لازم به ذکره که جدول 1 با جدول 2 لینک شده
کد مربوطه:
adotable3.First;
adotable1.Last;
while (adotable3.Eof=false) do
begin
if adotable3.FieldValues['check']= true then
begin
//adotable1.FieldValues['code']+adotable1.FieldValues['fname']+adotable1.FieldValues['lname'];
////////////
adotable1.Append;
adotable1['name']:=adotable3.FieldValues['name'];
adotable1['family']:=adotable3.FieldValues['family'];
adotable1['name pedar']:=adotable3.FieldValues['name pedar'];
showmessage('added');
adotable1.Post;
///////////////////
//adotable3.Next
end;
//else
adotable3.Next;
end;