DBGrid 두개를 두고 한쪽에서 MultiSelect한것을 다른 하나의 그리드로

옮기는 작업을 하는중입니다...

버튼1을 눌렀을때 일어나는 코딩입니다..



with DBGrid2.DataSource.DataSet do begin

if DBGrid2.SelectedRows.Count < 1 then begin

ShowMsg('선택된 데이타가 없습니다. 데이타를 선택하십시요.');

Exit;

end;

if DBGrid2.SelectedRows.Count > 0 then begin

for i := 0 to DBGrid2.SelectedRows.Count-1 do begin

GotoBookmark(pointer(DBGrid2.SelectedRows.Items[i]));

with Query3 do begin

append;

Query3WDATE.asstring := Query2WDATE.asstring;

Query3SEQNO.asstring := Query2SEQNO.asstring;

Query3SERIAL.asstring := Query2SERIAL.asstring;

Query3AMT.asfloat := Query2AMT.asfloat;

Query3CUST.asstring := Query2CUST.asstring;

Query3NAME.asstring := Query2NAME.asstring;

Query3BIMOK.asstring := Query2BIMOK.asstring;

Query3DEPT.asstring := Query2DEPT.asstring;

Query3PUM_CD.asstring := Query2PUM_CD.asstring;

Query3JUKRYO.asstring := Query2JUKRYO.asstring;

post;

end;

end;

for i := 0 to DBGrid2.SelectedRows.Count-1 do begin

GotoBookmark(pointer(DBGrid2.SelectedRows.Items[i]));

DBGrid2.DataSource.DataSet.Delete;

end;

end;

end;



이렇게 코딩을 했는데...

그런데 문제는 하나의 데이타라도 반드시 선택을 하고 하면 문제가 없는데..

처음에 하나를 선택하고 버튼을 누른 후 그 다음에는 아무것도 선택하지 않고...

또다시 버튼을 누르면 먼저 옮겨졌던 데이타가 그대로 다시 옮겨집니다...

바로전에 옮긴 데이타에 대한 정보를 가지고 있어서 그런것 같은데...



이 문제를 어떻게 해결해야 하나요???

알려주세요...