일단 이런거는 에러가 나더라도 실제 작성한 코딩 내용을

올리고 질문 하는게 좋겠죠?



다음 같이 해보세요.



1. form.show event(또는 Form.active)가 발생하는 순간에

콤보박스1에 테이블 A의 내용을 넣어주어야 겠죠.



procedure Tform.Formshow(Sender: TObject);

var i : integer;

begin

With query1 do

begin

Close;

SQL.Clear;

SQL.Add(' select distinct 회사명 from tablename');

open;



first;



for i := 0 to recordcount - 1 do

begin

combobox1.items.add(fieldbyname('회사명'));

next;

end;

end;

end;



2. 이제 콤보박스1의 내용을 가지고 검색해서 콤보박스2에

넣어주면 됩니다.



procedure Tform.combobox1clict(Sender: TObject);

var i : integer;

begin

With query1 do

begin

Close;

SQL.Clear;

SQL.Add(' select distinct 부서명 from tablename'

+ ' where 회사명=:companyname');

parambyname('companyname').asstring := combobox1.text;

open;



first;



for i := 0 to recordcount - 1 do

begin

combobox2.items.add(fieldbyname('부서명'));

next;

end;

end;

end;



그럼 즐거운 하루 되세요.