关于treeview控件的，一定给分

Question

Delphi的每个TreeNode都有Data属性，你可以把字段bh的值存在相应TreeNode的Data中。

Answer 1

to chechy(chechy)
能给出一段原代码吗？

Answer 2

我也是最近才使用这个控件的,不过我的实现比较简单,就是把某一个字段的值显示到控件里面,
具体做法是这样的,一个query,一个treeview,首先是对treeview控件的初始化,使用这个语句,
treeview1.items.add(nil,'first level');
然后是将query控件所查询出来的值加入里面,具体的代码如下所示:
with query1 do
begin
 close;
 sql.clear;
 sql.add('select distinct 字段名 from 表名');
 open;
 first;
end;
with treeview1 do
 while not query1.eof do
 begin
 treeview1.items[0].addchild(treeview1.items[0],query1.fieldbyname('字段名').asstring);
 query1.next;
end;

Answer 3

dataset.first;
while not dataset.eof do
begin
  // get your parent node
  tv.items.addobject(parentnode, dataset.fieldbyname('xm').Asstring, Pointer(dataset.fieldbyname('bh').Asinteger));
  dataset.next
end;

Answer 4

lwk_hlj:请问您是怎样解决的。我现在也急于做这一功能，能不能给点源码。谢谢。
我的邮箱是：[email protected].很急。