17-07-2014, 11:44 AM
حاولت استعمال هذا الكود
فواجهة مشكلة كتابة خانة واحدة من الجدول الاول من كل سطر
في سطر كامل من الجدول الثاني
هل من تعديل لو تكرمتم
فواجهة مشكلة كتابة خانة واحدة من الجدول الاول من كل سطر
في سطر كامل من الجدول الثاني
هل من تعديل لو تكرمتم
كود :
procedure TForm1.Button8Click(Sender: TObject);
var
C2:string;
i,j:integer;
begin
table2.Open;
while not table1.Eof do
begin
j:=table1.Fields.InstanceSize-1;
for i:=0 to j do
begin
C2:=table1.Fields[i].DisplayName;
append;
table2.FieldByName(C2).AsString:=table1.FieldByName(C2).AsString;
TABLE2.post;
end;
table1.Next;
table2.Next;
end;
end;