ACCESS自动编号的最大缺点就是删除记录也永远占一个记录号。哪位高手能详细指点一下流水号如何设，如果有一个字段叫ID，编号从1开始，加一个就是 1，但删掉的不算。请问ID的字段设为什么？设为文本？DELPHI代码中加入一些什么内容？我的其它字段的代码如下： ADOTable1.FieldByName('姓名').AsString := Edit1.Text; ADOTable1.FieldByName('拼音码').AsString := Edit2.Text; 那么是否可以 ADOTable1.FieldByName('ID').AsString := 加个什么函数 ?

------
我的编程起步于ktop，我将永远支持ktop

您好﹗    可透過JRO（Microsoft Jet and Replication Object）來對Access資料庫進行壓縮﹐真正刪除掉不存在的資料錄﹐相關的方法請參考以下的連接﹕ http://delphi.ktop.com.tw/topic.php?TOPIC_ID=201 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=17920    您所說的使用文本形態欄位的方法﹐可在ADOTable的OnNewRecord事件中﹐先使用SQL語法取出目前資料表中最大的ID欄位值﹐然后在您所述的程式碼中將此ID值+1并賦予新的資料錄即可﹒

begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery.SQL.Add('Select Max(ID) From 資料表');
  ADOQuery1.Open;
end;

賦值﹕ ADOTable1.FieldByName('姓名').AsString := Edit1.Text; ADOTable1.FieldByName('拼音码').AsString := Edit2.Text; ADOTable1.FieldByName('ID').AsString := IntToStr(ADOQuery1.Fields[0].AsInteger); //Fields[0]即之前做出的Max(ID)的值 ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

您好﹗    Sorry﹐少加了以下紅色部分﹕

begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery.SQL.Add('Select Max(ID) From 資料表');
  ADOQuery1.Open;
end;    賦值﹕
ADOTable1.FieldByName('姓名').AsString := Edit1.Text;
ADOTable1.FieldByName('拼音码').AsString := Edit2.Text;
ADOTable1.FieldByName('ID').AsString := IntToStr(ADOQuery1.Fields[0].AsInteger+1); //Fields[0]即之前做出的Max(ID)的值

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

如上所说，我运行程序是可以的，但填完EDIT的各项内容后按下保存按钮，也就将各项值赋给数据表时，就发生了如图错误：

------
我的编程起步于ktop，我将永远支持ktop