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;
어디가 잘못 되었는지....
흐흐흐(몇일을 계속봐도)
계속 돌아가기만 하네요....
고수님들의 답변을 기다리겠습니다.
> 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; 를 추가 하시면 될것 같네요...
그럼