各位大大,

請問要如何找中ClientDataSet中重覆的資料,


麻煩大家教教我吧..感激不盡!!

最笨的方法,參考看看
[code delphi]
cddetail.DisableControls;//與相關 Control 元件脫勾
cddetail.IndexFieldNames:='xxx;cccc';//依主鍵去作排序
s_xxx:='';
s_ccc:='';
cddetaiL.first;
while not cddetail.Eof do begin
if ((cddetail.FieldValues['xxx']=s_xxx) and (cddetail.FieldValues['ccc']=s_ccc)) then begin
showmessage('重複');
end;
s_xxx:=cddetail.FieldValues['xxx'];
s_ccc:=cddetail.FieldValues['ccc'];
cddetail.next;
end;
cddetail.EnableControls;與相關 Control 元件掛勾
[/code]

------
OS : Win 7 pro
Program : Delphi 7
DataBase : Ms Sql 2008

編輯記錄

借用TStringList, Indexof
找ClientDataSet中重覆的資料,Ex:

var
ss:TStringList;
begin
ss:=TStringList.Create;
Clientdataset1.DisableControls;
while not ClientDataSet1.Eof do
begin
if ss.IndexOf(ClientDataSet1.FieldByName('T_SU').asstring) >=0 then
ShowMessage(ClientDataSet1.FieldByName('T_NO').asstring ' T_SU Duplicated!')
else
begin
ss.Add(ClientDataSet1.FieldByName('T_SU').asstring);
end;
clientdataSet1.next;
end;
Clientdataset1.EnableControls;
ss.SaveToFile('ALLT_SU.txt');
ss.Free
end;

------
What do we live for if not to make life less difficult for each other?

編輯記錄