Query1.SQL.Clear;
Query1.SQL.Add('Select * from ACC.DBF');
Query1.Open;
if Query1.FindField('turndate') = nil then begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('ALTER TABLE ACC ADD turndate CHAR(6) ');
// 本行會出現錯誤
Query1.ExecSQL;
end;
// 如果改寫
with Table1 do begin
Active := False;
DatabaseName := 'D:\';
TableType := ttDBase;
TableName := 'ACC';
if Table1.Exists then begin
with FieldDefs do begin
with AddFieldDef do begin
Name := 'turndate';
DataType := ftString;
Size :=6;
end;
Table1.CreateTable; // 本行會把原結構刪除,只剩 trundate 不知用什麼
end;
end;
end;

編輯記錄

我已找到答案
Query1.SQL.Clear;
Query1.SQL.Add('ALTER TABLE ''' 'aac.dbf' ''' add ano1 char(6) ');
Query1.ExecSQL;

請問如果需要兩個以上的欄位 應該怎麼寫呢

再寫一行Query1.SQL.Add....不就行了?

可是我只是要再新增資料表的時候 有兩個以上的欄位
如果再打一行 會變變成 我新增了兩個依樣名稱的資料表

===================引 用 老大仔 文 章===================
再寫一行Query1.SQL.Add....不就行了?

Query1.SQL.Clear;
Query1.SQL.Add('ALTER TABLE ''' 'aac.dbf' ''' add (ano1 char(6),ano2 char(7)) ');
Query1.ExecSQL;
**
Try It!