Q&A

  • 무한루프에 빠진것 같습니다.
QueryUser.Active := false;

QueryUser.SQL.Clear;

QueryUser.SQL.Add('select * from m_userdetail order by kikcd');

QueryUser.Active := true;



QueryUser.First;

while Not QueryUser.Eof do

begin

with TreeViewUser do

begin

sStr := QueryUser.FieldByName('USERID').AsString;

MyTreeNode := Items[0];

Items.AddChild(MyTreeNode, trim(sStr));

end;

end;



어디가 잘못 되었는지....

흐흐흐(몇일을 계속봐도)

계속 돌아가기만 하네요....

고수님들의 답변을 기다리겠습니다.

2  COMMENTS
  • Profile
    박일용 2000.12.23 20:02
    정용광 wrote:

    > QueryUser.Active := false;

    > QueryUser.SQL.Clear;

    > QueryUser.SQL.Add('select * from m_userdetail order by kikcd');

    > QueryUser.Active := true;

    >

    > QueryUser.First;

    > while Not QueryUser.Eof do

    > begin

    > with TreeViewUser do

    > begin

    > sStr := QueryUser.FieldByName('USERID').AsString;

    > MyTreeNode := Items[0];

    > Items.AddChild(MyTreeNode, trim(sStr));

    > end;

    > end;

    >

    > 어디가 잘못 되었는지....

    > 흐흐흐(몇일을 계속봐도)

    > 계속 돌아가기만 하네요....

    > 고수님들의 답변을 기다리겠습니다.



    Items.AddChild(MyTreeNode, trim(sStr)); 여기 밑에

    QueryUser.Next; 를 추가 하시면 될것 같네요...

    그럼

  • Profile
    정용광 2000.12.23 20:09
    박일용 wrote:

    > 정용광 wrote:

    > > QueryUser.Active := false;

    > > QueryUser.SQL.Clear;

    > > QueryUser.SQL.Add('select * from m_userdetail order by kikcd');

    > > QueryUser.Active := true;

    > >

    > > QueryUser.First;

    > > while Not QueryUser.Eof do

    > > begin

    > > with TreeViewUser do

    > > begin

    > > sStr := QueryUser.FieldByName('USERID').AsString;

    > > MyTreeNode := Items[0];

    > > Items.AddChild(MyTreeNode, trim(sStr));

    > > end;

    > > end;

    > >

    > > 어디가 잘못 되었는지....

    > > 흐흐흐(몇일을 계속봐도)

    > > 계속 돌아가기만 하네요....

    > > 고수님들의 답변을 기다리겠습니다.

    >

    > Items.AddChild(MyTreeNode, trim(sStr)); 여기 밑에

    > QueryUser.Next; 를 추가 하시면 될것 같네요...

    > 그럼



    감사합니다.

    정말이군요..

    이렇게 간단한 것을...(흐흐흐)