我在表單上拉了兩個ADOQUERY物件，欲撰寫一個單據的輸入介面，ADOQUERY1為表頭，ADOQUERY2為表身，

我寫了一個函數，想要再使用者按下新增表單子項目時，計算出目前子表單，已經輸入幾項物品(因為ＫＥＹ值關係)

要讓使用者同一編號編號輸入（兩次）所以一定要加入，"子單項次'"這個欄位，但是發現當我使用下方這個函數取得

子項次時，第一次會捉取OK，第二次為取得時並POST時，會出現ADOQUERY2並非在編輯狀態或新增狀態，
但是我明明有下達ADOQUERY2.APPEND指令也有ADOQUERY2.POST但是不知道為何失敗，後來以手動方式輸入
以人工計算的項次，其實是OK的也就是我下方的函數有錯誤，但一直找不到錯誤，請各位前輩幫忙解答一下。
Self.ADOQuery2.Append;
Self.ADOQuery2.Fields[0].Value := Self.D1.Text; // 單據號碼
Self.ADOQuery2.Fields[1].Value := (Get_MaxBodyItem(ADOQuery2));
Self.ADOQuery2.Post;

function TForm1.Get_MaxBodyItem(rs: TADOQuery): Integer;
var
i: Integer;
Max: Integer;
bm: TBookmark;
begin
Max := 0;
if rs.Recordset.RecordCount = 0 then
begin
// 沒有子項次
Result := 1;
end
else
begin
bm := rs.GetBookmark;
rs.First;
for i := 1 to rs.Recordset.RecordCount do
begin
if not Isnull(rs['子單項次']) then
begin
if rs['子單項次'] > max then
begin
max := rs['子單項次'] 1;
end;
end;
rs.Next;
end;
rs.GotoBookmark(bm);
rs.FreeBookmark(bm);
Result := max;
end;
end;

找到錯誤了！原來我傳入的RS物件變數，會關連到原來的物件，也就是我下達移動記錄對傳入的物件時，
原始物件也會跟著移動，現在不知道要怎麼傳入ADOQUERY物件，但是不影響原來的ADOQUERY物件，

不知道要怎麼設計這個函數，請大家幫幫，感謝！

我在表單上拉了兩個ADOQUERY物件，欲撰寫一個單據的輸入介面，ADOQUERY1為表頭，ADOQUERY2為表身，

我寫了一個函數，想要再使用者按下新增表單子項目時，計算出目前子表單，已經輸入幾項物品(因為ＫＥＹ值關係)

要讓使用者同一編號編號輸入（兩次）所以一定要加入，"子單項次'"這個欄位，但是發現當我使用下方這個函數取得

子項次時，第一次會捉取OK，第二次為取得時並POST時，會出現ADOQUERY2並非在編輯狀態或新增狀態，
但是我明明有下達ADOQUERY2.APPEND指令也有ADOQUERY2.POST但是不知道為何失敗，後來以手動方式輸入
以人工計算的項次，其實是OK的也就是我下方的函數有錯誤，但一直找不到錯誤，請各位前輩幫忙解答一下。
Self.ADOQuery2.Append;
Self.ADOQuery2.Fields[0].Value := Self.D1.Text; // 單據號碼
Self.ADOQuery2.Fields[1].Value := (Get_MaxBodyItem(ADOQuery2));

======================================================

改成 Self.ADOQuery2.Fields[1].Value := adoquery2.recordcount;

不過,這樣會不準,基本上,你應該是把adoquery2的比數紀錄在adoquery1才對吧!

Self.ADOQuery2.Post;

這樣的處理模式會有問題，用即時計算明細筆數來做項目編號又同時當作主鍵的一部份。

給你一個狀況推演

1. 新增第一筆，項次編號帶入 1
2. 新增第二筆，項次編號帶入 2
3. 新增第三筆，項次編號帶入 3
4. 刪除項次 1 的，此時明細資料筆數為 2 筆
5. 再新增一筆，項次編號帶入 3 儲存時出現錯誤，因為項次編號 3 已存在

感謝您的回覆：

我已經找傳入recoredset方法，寫一個函數取得項次。

function TForm1.Get_MaxBodyItem(rs_TEMP: TADOQuery): Integer;
var
i: Integer;
Max: Integer;
bm: TBookmark;
rs: TADOQuery;
begin
rs := TAdoQuery.Create(self);
rs.Recordset := rs_TEMP.Recordset._xClone;
Max := 0;
if rs.Recordset.RecordCount = 0 then
begin
// 沒有子單據項次
rs.FreeBookmark(bm);
Result := 1;
end
else
begin
// bm := rs.GetBookmark;
rs.First;
for i := 1 to rs.Recordset.RecordCount do
begin
if not Isnull(rs.Fields[1].Value) then
begin
if rs.Fields[1].Value >= max then
begin
max := rs.Fields[1].Value 1;
end;
end;
rs.Next;
end;
// rs.GotoBookmark(bm);
// rs.FreeBookmark(bm);
rs.Free;
Result := max;
end;
end;

感謝您的回覆：

我已經找傳入recoredset方法，寫一個函數取得項次。

function TForm1.Get_MaxBodyItem(rs_TEMP: TADOQuery): Integer;
var
i: Integer;
Max: Integer;
bm: TBookmark;
rs: TADOQuery;
begin
rs := TAdoQuery.Create(self);
rs.Recordset := rs_TEMP.Recordset._xClone;
Max := 0;
if rs.Recordset.RecordCount = 0 then
begin
// 沒有子單據項次
rs.FreeBookmark(bm);
Result := 1;
end
else
begin
// bm := rs.GetBookmark;
rs.First;
for i := 1 to rs.Recordset.RecordCount do
begin
if not Isnull(rs.Fields[1].Value) then
begin
if rs.Fields[1].Value >= max then
begin
max := rs.Fields[1].Value 1;
end;
end;
rs.Next;
end;
// rs.GotoBookmark(bm);
// rs.FreeBookmark(bm);
rs.Free;
Result := max;
end;
end;