질문이 좀 불분명한것 같아서 확실히 대답하기 힘들군요.



저 역시 with문 사용에 문제가 있을 것이라고 생각합니다.



이 소스로 한번 실험해 보세요.



var

mysql : string;

sTmp : string;

node1, node2 : ttreenode;

begin

query1.SQL.Clear;

mysql := 'select * from a order by a_1';

query1.sql.Add(mysql);



query1.open;



while not query1.EOF do

begin

node1 := treeview1.Items.Add(nil, query1.fieldbyname('a_2').asstring);

sTmp := query1.fieldbyname('a_1').asstring;



mysql := 'select * from b where b.a_1 = '''+sTmp+''' order by b_1';



query2.sql.clear;

query2.sql.Add(mysql);

query2.open;



while not query2.eof do

begin

node2 := treeview1.items.addchild(node1, query2.fieldbyname('b_1').asstring);

query2.next;

end;

query2.close;



query1.next;

end;

end;



원하시던 답변인지 모르겠군요.

그럼 열심히 하세요...

아마 에러는 없지만,

원하는 결과값이 나올질 않지 않습니까?

쿼리에도 그렇고 syntax에도 문제가 없습니다만,

with구문에서 문제가 있는 것 같아요.



(1) with obj1, obj2, ..., objn do statement

위의 구문은 아래와 같은 구문으로 같습니다.

(2) with obj1 do

with obj2 do

...

with objn do

statement



여기서 중요한것은 statement가 제일먼저 참조하는것이

obj1이 아니라 objn, 즉 with맨끝에 있는 객체죠.



귀하의 코딩을 보니까, 의도는 알겠는데요,

with문에서 쿼리 컴포넌트를 일련식으로 쓰지 마시고,

정확히 해당 컴포넌트의 쿼리 및 그 결과값을 참조할 수 있도록

위의 (2)처럼 쓰시면 잘 되지 않을까 생각이 되네요.

그럼, 도움이 되셨기를 바라면서...