안녕하세요? 고수님들... 이렇게 좋은 사이트가 있다는걸 이제야 알다니... T.T

저의 고민은 이겁니다.



디비그리드에다 텍스트 박스에 있는 데이터를 넣어주려고 합니다.

그래서 맨 마지막 텍스트 박스에 엔터키를 치면 테이터가 들어가게 만들어놨습니다.

거기까진 잘 됩니다.

근데 이눔의 디비그리드드가 다음자료를 입력하면 맨위의 줄을 그대로 덮어써버립니다.

다음줄로 옮겨 디비그리드에 내용을 찍어주려면 어떻게 해야 합니까?

참고적으로 제 소스를 올립니다.





procedure TfrmIN1E0900.edtamtKeyPress(Sender: TObject; var Key: Char);



begin

inherited;

if key = #13 then begin

with qryMaster do

begin

close;

open;

Edit;

fieldByName('YMMDD').AsString := edtdate.text;

fieldByName('item_code').AsString := edtitem_code_K.text;

fieldByName('gong_code').AsString := edtgong_code.text;

fieldByName('amt').AsString := edtamt.text;

end;

edtitem_code_K.text := '';

edtgong_code.text := '';

edtamt.text := '';

edtdate.setFocus;

qryMaster.Edit;

qryMaster.next;

end;

end;