請問TClientDataSet.State問題? cds1: TClientDataSet; cds2: TClientDataSet; 請問 cds1.State <= dsInsert 原本在新增狀態 但經下列運作後 cds2.Data := cds1.Data; cds1.State 的狀態已不在原本的新增狀態, 請問如何保留住cds1.State? Delphi Man

------
Delphi

>>

var
 mystate: TDataSetState;
begin
 mystate := cds1.State;
 cds2.Data := cds1.Data;
 if (mysatae = dsEdit) then cds1.Edit;
 if (mystate = dsInsert) then cds1. <==== ????
 myprocess(cds2);  //分析函式
end;
請問如何重新讓cds1進入dsInsert狀態?
 

Delphi Man

------
Delphi

引言:

var
 mystate: TDataSetState;
begin
 mystate := cds1.State;
 cds2.Data := cds1.Data;
{ cds1 is POSTED afterward }
 if (mysatae = dsEdit) then cds1.Edit;
 if (mystate = dsInsert) then cds1. <==== ????
 myprocess(cds2);  //分析函式
end;
請問如何重新讓cds1進入dsInsert狀態?
 

Delphi Man

The inserted record has been posted after your access to its Data property. You can make it into dsInsert state by inserting another record and I think this is not what you want.

1. 使用 cds1.Edit; 除了不能取消 insert 外 (因為已 post 了)，其他的 dbEdit 和 dsInsert 分別不大 2. 先記起各 Field 的值，cds1.Cancel 後才 cds2.Data := cds1.Data; ，之後再 insert 及埴入剛才的值，會很煩但可保留 dbInsert 狀態 3. cds2.Data := cds1.Data; 前先問使用者是否 post, 是則 post 了他事後 Edit, 否則 Cancel 他事後不作處理或insert 一筆新記錄。

小弟用TClientDataSet.CanceUpdate來取代DataSet.Cance 所以容許cds2.Data := cds1.Data有DataSet.Post 只是小弟不懂如何再次進入dsInsert狀態? Delphi Man

------
Delphi

用CloneCursor啦，這樣cds1 cursor狀態根本都不會變 cds2.CloneCursor(cds1,False,True); myprocess(cds2); //分析函式 唉~

------
唉~

妙!果真如此! Delphi Man

------
Delphi