我用dbgrid1、datasource1、table1三个控件。dbgrid1.columns.add添加字段后，怎样使其保存在我对应的数据库文件中？(50分

我用dbgrid1、datasource1、table1三个控件。dbgrid1.columns.add添加字段后，怎样使其保存在我对应的数据库文件中？(50分)<br />dbgrid1的datasource为datasource1;
datasource1的dataset为table1;
table1的tablename设置为C:/mydb.db//我的数据库名字
table1的active为true；
我用dbgrid1.columns.add添加字段后怎样才能使其保存到我的数据库中？

&gt;&gt;用dbgrid1.columns.add添加字段后怎样才能使其保存到我的数据库中？
不太明白，说清楚一点。

BDE我很长时间没用了,
在dbgrid中增加的字段应该是计算字段,
在保存到数据库中要对table编程实现
我给你找一找资料!

不好办吧？是不是需要自己使用DML语言进行增加呀。

用query1代替table1;
用sql命令
alter table tablename
add fieldname int

with Table1 do begin
Active := False;
DatabaseName := 'DBDEMOS';
TableType := ttParadox;
TableName := 'CustInfo';

{ Don't overwrite an existing table }

if not Table1.Exists then begin
{ The Table component must not be active }
{ First, describe the type of table and give }
{ it a name }
{ Next, describe the fields in the table }
with FieldDefs do begin
Clear;
with AddFieldDef do begin
Name := 'Field1';
DataType := ftInteger;
Required := True;
end;
with AddFieldDef do begin

Name := 'Field2';
DataType := ftString;
Size := 30;
end;
end;
{ Next, describe any indexes }
with IndexDefs do begin
Clear;
{ The 1st index has no name because it is
{ a Paradox primary key }
with AddIndexDef do begin
Name := '';
Fields := 'Field1';
Options := [ixPrimary];
end;
with AddIndexDef do begin

Name := 'Fld2Indx';
Fields := 'Field2';
Options := [ixCaseInsensitive];
end;
end;
{ Call the CreateTable method to create the table }
CreateTable;
end;
end;

with query1 do
begin
close;
sql.clear;
sql.add('alter table mydb add hehe int');
execsql;
end;

接受答案了.