Query에 DataSource를 연결해 놓았고 DBGrid가 Chang될때마다
Edit에 보여주는 건데...
아래에 코딩만 들어가면 'Code'필드를 찾을 수 없다는 메시지가나옵니다.
'Code'뿐만 아니라 다른 필드도 모두 못 찾는것 같은데 왜 이러는 걸까요??
내부에 Sql문에서는 문제없이 잘 돌아가는데....
그래서 아래의 코딩부분을 주석으로 하고 Query의 'Fields Editor..'에서
모든필드를 추가 시켜 줬는데.. 그래도 똑같은 에러가 발생합니다.
왜그런지 좀 갈켜 주세요... 답답해서....ㅡㅡ;
procedure TMFarm.DataSource1DataChange(Sender: TObject; Field: TField);
begin
With Query1 do begin
Edit1.text:=FieldByName('Code').AsString;
Edit2.Text:=FieldByName('Name').AsString;
Edit3.Text:=FieldByName('CMan').AsString;
MaskEdit1.Text:=FieldByName('Post').AsString;
Memo.Text:=FieldByName('Addr').AsString;
end;
end;
> Query에 DataSource를 연결해 놓았고 DBGrid가 Chang될때마다
> Edit에 보여주는 건데...
> 아래에 코딩만 들어가면 'Code'필드를 찾을 수 없다는 메시지가나옵니다.
> 'Code'뿐만 아니라 다른 필드도 모두 못 찾는것 같은데 왜 이러는 걸까요??
> 내부에 Sql문에서는 문제없이 잘 돌아가는데....
> 그래서 아래의 코딩부분을 주석으로 하고 Query의 'Fields Editor..'에서
> 모든필드를 추가 시켜 줬는데.. 그래도 똑같은 에러가 발생합니다.
> 왜그런지 좀 갈켜 주세요... 답답해서....ㅡㅡ;
> procedure TMFarm.DataSource1DataChange(Sender: TObject; Field: TField);
> begin
> With Query1 do begin
> Edit1.text:=FieldByName('Code').AsString;
> Edit2.Text:=FieldByName('Name').AsString;
> Edit3.Text:=FieldByName('CMan').AsString;
> MaskEdit1.Text:=FieldByName('Post').AsString;
> Memo.Text:=FieldByName('Addr').AsString;
> end;
> end;
일반 TEdit를 쓰지 마시구요.
TDBEdit를 쓰시면 자연스럽게 풀릴문제같네요