那如果我是想用treeview把他显示出来该怎么弄才好啊 是不是 var mynode:ttreenode; begin repeat mynode:=treeview1.items.add(treeview1.selected,adotable1.fieldbyname('gh').asstring); treeview1.items.addchild(mynode,adotable1.fieldbyname('xm').asstring); treeview1.items.addchid(mynode,adotable1.fieldbyname('xb').asstring); adotable.next; until adotable1.eof;
应该是可以的 不过我觉得还是用while not adotable1.eof do 比较好一点。ds是一个datasource控件。if ds.dataset.recordcount > 0 then begin ds.dataset.first; while not ds.dataset.eof do begin mynode:=treeview1.items.add(nil,ds.dataset.fieldbyname ('gh').asstring); treeview1.items.addchild(mynode,ds.dataset.fieldbyname('xm').asstring); treeview1.items.addchid(mynode,ds.dataset.fieldbyname('xb').asstring); ds.dataset.next; end; end;
lable1.caption:=table1.filebyname('gh').asstring
是不是
var
mynode:ttreenode;
begin
repeat
mynode:=treeview1.items.add(treeview1.selected,adotable1.fieldbyname('gh').asstring);
treeview1.items.addchild(mynode,adotable1.fieldbyname('xm').asstring);
treeview1.items.addchid(mynode,adotable1.fieldbyname('xb').asstring);
adotable.next;
until adotable1.eof;
不过我觉得还是用while not adotable1.eof do 比较好一点。ds是一个datasource控件。if ds.dataset.recordcount > 0 then
begin
ds.dataset.first;
while not ds.dataset.eof do
begin
mynode:=treeview1.items.add(nil,ds.dataset.fieldbyname ('gh').asstring);
treeview1.items.addchild(mynode,ds.dataset.fieldbyname('xm').asstring);
treeview1.items.addchid(mynode,ds.dataset.fieldbyname('xb').asstring);
ds.dataset.next;
end;
end;