프로그램 실행후

제일 처음 레코드를 선택해서 자료를 입력하면 꼭 4개가 같이 입력됩니다.

즉 초기 자료는 무조건 1개를 선택해도 4개가 입력되요 3개의 쓰레기 레코드가

입력되요...

그다음 부터는 선택한 만큼의 레코드만 잘 입력됩니다..

이유를 모르겠어요 소스의 일부분을 밑에 써놓을께요 아시는분 가르쳐주세요.

-----------------------------------------------------------------------

procedure TMainForm.btnAccountClick(Sender: TObject);

var

x : integer;

begin

Case pgMoney.ActivePageIndex of



0 : begin

DBGrid1.DataSource.DataSet.DisableControls ;

dm.tblMoney.edit;



with DBGrid1.SelectedRows do

if Count > 0 then begin

for x:=0 to Count-1 do begin

with DBGrid2.DataSource.DataSet do begin

DBGrid1.DataSource.DataSet.Bookmark := Items[x];

FieldByName('MSCode').AsString :=

DBGrid1.DataSource.DataSet.FieldByName('SCode').AsString;

FieldByName('MSName').AsString :=

DBGrid1.DataSource.DataSet.FieldByName('SName').AsString;

FieldByName('MDate').AsFloat := Date;

FieldByName('MItem').AsString := cmbItem.Text ;

FieldByName('MDegree').AsString := cmbDegree.Text ;

FieldByName('MMoney').AsFloat := StrToInt(edtMoney.Text);

dm.tblMoney.append ;

end;//with

end;//for

end;// if

DBGrid1.DataSource.DataSet.EnableControls ;

Dm.tblMoney.edit;

Dm.tblMoney.Post;

end;//Case 0

----------------------------------------------------------------------