假设资料编号为5位，自00001至99999。每次新增资料时自动取得当前最大资料号加1后的编号,但如不够5位前面要补0达到5位。如果先转成整数后加1再转成字串后用回圈在前面补零，这样做比较麻烦。先前好象论坛上好象有这样的帖子，一时间找不到，打简体中文字去搜又搜不到。 请指教，谢谢！ 唵嘛呢呗咪吽

您好﹗    因為其中有涉及到最大值加1的動作﹐所以還是需要將查詢出的最大值轉成Int形態再做加1﹐只是說在回存資料庫時﹐可以直接用Format函數將加1后的值再轉成符合格式要求的字串形態﹐如下﹕

Var
  Str: String;
  I: Integer;
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select Max(資料編號) From 資料表名稱');
  ADOQuery1.Open;
  I := StrToInt(ADOQuery1.Fields[0].AsString);
  I := I + 1;
  Str := Format('%5.5d', [I]);
  
  ADOTable1.Insert;
  ADOTable1.FieldByName('資料編號').AsString := Str;
  ADOTable1.FieldByName('...略
  ADOTable1.Post;
end;

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

------
忻晟