مجموعة أسئلة في الجداول

حول الخاصية Auto Edit الموجودة في الDataSet الى False

كمشور يا أخى

كيف يتم نفل الصف فى جول الى عدد من الصوف بقيمه حقل فى الصف

ارجو التعديل فى الكود

var

i : integer ;

str : string ;

begin

with IBTable1 do

// begin

//IBSQL1.ExecQuery ;

//First ;

while not IBTable1.Eof do

begin

IbTable2.Insert ;

with IBQuery1 do

begin

Close;

Open ;

str := Fields.Fields[0].AsString ;

end;

if(str = '')then

str := '1'

else

str := IntToStr(StrToInt(str)+ 1) ;

IBTable2.Fields[0].Value := str ;

//IbTable2.Post ;

for i:= 1 to IbTable2.Fields.Count - 1 do

IBTable2.Fields.Fields.Value := Fields.Fields.Value ;

// IBTable2.Fields[1].Value := str ;

// IBTable2.Fields[23].Value := 4 ;

IbTable2.Post ;

Next ;

end;

IbTable2.Refresh ;

IbTable1.Refresh ;

Application.MessageBox('The Data has been Transfered Successfully','assurance',MB_OK);

end;

بحيث ياخذ عدد الصوف فى الجدول الثانى مساوى لقيمه حقل رقم 14 مثلا و تكون قبمه الحقل 14 فى الجدول الثانى عباره عند رقم 1