seyed_farid
شنبه 24 فروردین 1387, 23:21 عصر
با سلام.
چگونه میتوان در زمان اجرای برنامه در صورت عدم وجود یک فیلد خاص، آنرا به جدول افزود و برای آن هم مقدار دیفالت تعریف نمود و آنرا ثبت نمود؟
من با این دستور فیلد را اضافه میکنم ولی بعد از بستن جدول این فیلد هم پاک میشود.
procedure TForm1.Button1Click(Sender: TObject);
var
Field: TField;
i: Integer;
begin
Table1.Active:=False;
for i:=0 to Table1.FieldDefs.Count-1 do
Field:=Table1.FieldDefs[i].CreateField(Table1);
Field:=TStringField.Create(Table1);
with Field do
begin
FieldName:='New Field';
Calculated:=True;
DataSet:=Table1;
end;
Table1.Active:=True;
end;
چگونه میتوان در زمان اجرای برنامه در صورت عدم وجود یک فیلد خاص، آنرا به جدول افزود و برای آن هم مقدار دیفالت تعریف نمود و آنرا ثبت نمود؟
من با این دستور فیلد را اضافه میکنم ولی بعد از بستن جدول این فیلد هم پاک میشود.
procedure TForm1.Button1Click(Sender: TObject);
var
Field: TField;
i: Integer;
begin
Table1.Active:=False;
for i:=0 to Table1.FieldDefs.Count-1 do
Field:=Table1.FieldDefs[i].CreateField(Table1);
Field:=TStringField.Create(Table1);
with Field do
begin
FieldName:='New Field';
Calculated:=True;
DataSet:=Table1;
end;
Table1.Active:=True;
end;