在dbgride中 每新增一筆資料 就自動帶出流水號, 譬如新增第一筆 就帶出 1 第二筆就帶出 2..以此類推 1 A 2 B 3 C 4 H 1~4 都為程式自動帶出, 每新增一筆就自動帶出, 譬如再新增 下一筆就為 5 然後, 我今天要插入 第3筆後面 D 這筆資料, 然後 變成 1 A 2 B 3 C 4 D 5 H 刪掉 2 B 這筆時, 會變成 1 A 2 C 3 D 4 H 請問用什麼方法來達到這樣的功能需求較好?

table1-->Active(False) table1元件右鍵Field Editor..再右鍵new field... Name-->Rec,Type-->Integer,Field type-->Calculated. table1-->Active(True) DBGrid1元件右鍵Field Editor..再右鍵Add all fields， 將Rec調整至最前面。 table1的onCalcFields之Events-->

procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
  if Form1.Table1.State = dsInsert then  // 動態產生流水號
     Form1.Table1Rec.Value := Form1.Table1.RecordCount   1
  else
     form1.Table1Rec.Value := Form1.Table1.RecNo;
end;

引言: table1-->Active(False) table1元件右鍵Field Editor..再右鍵new field... Name-->Rec,Type-->Integer,Field type-->Calculated. table1-->Active(True) DBGrid1元件右鍵Field Editor..再右鍵Add all fields， 將Rec調整至最前面。 table1的onCalcFields之Events-->

procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
  if Form1.Table1.State = dsInsert then  // 動態產生流水號
     Form1.Table1Rec.Value := Form1.Table1.RecordCount   1
  else
     form1.Table1Rec.Value := Form1.Table1.RecNo;
end;

請教一下kgt，若是用 Query 元件，可以做得到嗎？

您好﹗    可以使用一樣的做法﹒    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

引言: 在dbgride中 每新增一筆資料 就自動帶出流水號, 譬如新增第一筆 就帶出 1 第二筆就帶出 2..以此類推 1 A 2 B 3 C 4 H 1~4 都為程式自動帶出, 每新增一筆就自動帶出, 譬如再新增 下一筆就為 5 然後, 我今天要插入 第3筆後面 D 這筆資料, 然後 變成 1 A 2 B 3 C 4 D 5 H 刪掉 2 B 這筆時, 會變成 1 A 2 C 3 D 4 H 請問用什麼方法來達到這樣的功能需求較好?

你可以參考SMComponent library v3.52，它是免費的元件，其中的DBGrid應該可以達到你的需求。 http://delphi.ktop.com.tw/topic.php?topic_id=81215 以下是我寫的測試程式的畫面

請教此元件流水號如何代出??