버튼을 눌르면.. 쿼리를 하구.. 노드에.. 삽입시킬려구 하거든요..
나름대로.. 열심히.. 코딩했는뎅.. ^^;;
에러는 없는데.. 실행이 안되네여... ^^;
알려주세요.. 어떻게 해야.. 트리뷰에.. 노드가 생성되는지.. ^^
procedure TForm1.Button2Click(Sender: TObject);
var
parent1 : TTreeNode;
tmp : String;
begin
with query1 do begin
Close;
Sql.Clear;
Sql.Add('select crdno, gubun from AAAA');
open;
if recordcount > 0 then begin
first;
Treeview1.Items.Clear;
While not EOF do begin
tmp := FieldByName('crdno').AsString;
parent1 := Treeview1.Items.Add(nil, tmp);
end;
end;
end;
end;
query1에서 AAAA라는 테이블에서.. crdno를 읽어와서..
crdno 가 노드가 되는걸 하고자 합니다..
쿼리는 제대로 실행되는거 같은데.. treeview에 보이질 않네여.. ㅠ.ㅠ
알려주세요.. ㅠ.ㅠ
무한 Loop에 빠질것 같은데요...
while not eof do
begin
...
Next; ===> 이게 없는것 같은데....
end;
ㅠ.ㅠ wrote:
> 버튼을 눌르면.. 쿼리를 하구.. 노드에.. 삽입시킬려구 하거든요..
>
> 나름대로.. 열심히.. 코딩했는뎅.. ^^;;
>
> 에러는 없는데.. 실행이 안되네여... ^^;
>
> 알려주세요.. 어떻게 해야.. 트리뷰에.. 노드가 생성되는지.. ^^
>
> procedure TForm1.Button2Click(Sender: TObject);
> var
> parent1 : TTreeNode;
> tmp : String;
> begin
> with query1 do begin
> Close;
> Sql.Clear;
> Sql.Add('select crdno, gubun from AAAA');
> open;
> if recordcount > 0 then begin
> first;
> Treeview1.Items.Clear;
> While not EOF do begin
> tmp := FieldByName('crdno').AsString;
> parent1 := Treeview1.Items.Add(nil, tmp);
> end;
> end;
> end;
> end;
>
> query1에서 AAAA라는 테이블에서.. crdno를 읽어와서..
> crdno 가 노드가 되는걸 하고자 합니다..
> 쿼리는 제대로 실행되는거 같은데.. treeview에 보이질 않네여.. ㅠ.ㅠ
> 알려주세요.. ㅠ.ㅠ