procedure TForm2.DBGrid1DblClick(Sender: TObject);
begin
Form1.Edit1.Text := Query2.FieldByname('tCode').AsString;
Form1.Pname.Caption := query2.FieldByname('tname').AsString;
Form2.Close;
end;
위에 소스는 프로그램 소스의 일부분입니다.
MDI폼으로 메인을 띄운후에.. 폼 1에서 찾기 버튼을 클릭하여 폼2의 조회 화면에서 데이터를 조회한후에 폼2의 일부 데이터를 폼 1으로 이동할려고 하는데
Access violation 에러가 납니다.
게시판을 하루종일 뒤져도 답이 안나오네요?
어떻게 해야 될지? 막막합니다.
고수님들 도와주세요..^^
Form1의 use절에는
form2를 추가해 주시구여..
아래부분을
Form1.Edit1.Text := Query2.FieldByname('tCode').AsString;
Form1.Pname.Caption := query2.FieldByname('tname').AsString;
==> Form1.Edit1.Text := Form2.Query2.FieldByname('tCode').AsString;
==> Form1.Pname.Caption := Form2.query2.FieldByname('tname').AsString;
왜 form2를 썼냐고 하면여.. Form1과 Form2에 모두 Query2가 있을 수 있다는
생각에서 썼습니다.
단, 받는 값(Query2.FieldByname('tCode').AsString)이 Nil값이면 안되겠쪄?