최수영 께서 말씀하시기를...

> TreeView를 사용하여 부서코드,우편번호테이블을 검색 Add,AddChild를 동적으로

> 생성하는 예제를 부탁드립니다.

>

> 참고로 저는 아래와 같이 하였는데 결국 AddChild를 문제더군요..

> 부서별 서브Item 한단계로 끝나면서 생성되어야 하는데 ...

> 자꾸 서브에 서브로 계속들어가더라구요...

>

> //퀴리1의 내용

> select bs_code, bs_level, bs_name

> from gcd1buso

> order by bs_code, bs_level

> //bs_level이 1이면 Add, 2이면 AddChild를 해야 됩니다.

>

해결했습니다! 참 너무하시군요! 조회만 하시고 답변은 안주시는 것 같습니다!

고민한 결과 해결했습니다!

관심있으신 분은 메일주셔요!

> //아래는 쿼리후의 내용입니다.

> 1050 2 전산실

> 3000 1 공사관리부

> 3010 2 공사관리부

> 3200 1 내장사업부

> 3210 2 내장영업부

> 3230 2 내장공사부

> 3400 1 외장사업부

> 3410 2 외장영업부

> 3430 2 외장공사부

> 3600 1 해외사업부

> 3610 2 해외영업부

> 3630 2 해외공사부

> 5000 1 설계실

> 5010 2 설계실

> //아래는 델파이 소스입니다.

>

> procedure TForm1.FormCreate(Sender: TObject);

> var i :integer ;

> begin

> if Query1.active = false then Query1.active := True;

> while not Query1.eof do

> begin

> with TreeView1.Items do

> begin

>

> Add(TreeView1.Selected, Query1.FieldByName('bs_code').asstring + ' '+Query1.FieldByName('bs_name').asstring);

>

> AddChild(TreeView1.Items[i],Query1.FieldByName('bs_code').asstring + ' '+Query1.FieldByName('bs_name').asstring);

> end;

> // AddChild(TreeView1.Items[i], Query1.FieldByName('bs_code').asstring+ ' ' +Query1.FieldByName('bs_name').asstring);

> // inc(i);

> end;//with

> Query1.next;

> end;//while

> end;//proc

>