如何用TreeView建立一个数据库树，并且具有查找子结点时自动展开相应的父结点把指针指到相应的子结点

Question

如何用TreeView建立一个数据库树，并且具有查找子结点时自动展开相应的父结点把指针指到相应的子结点

Answer 1

方法一，用循环从表里读数据，自己填树，并实现其功能；
方法二，树的层次很多时，可以用递归实现；
方法三，用QuantumGrid Pro的DBTreeView控件，代码可以大量减少。

Answer 2

dbtreeview有的是针对证形的变量，还是自己写好

Answer 3

for i := 0 to TV_HH.Items.Count - 1 do
    if TV_HH.Items[i].Level = 1 then
      if copy(TV_HH.Items[i].Text, 1, length(Edit_doorcode.text)) = trim(edit_doorcode.Text) then
      begin
        TV_HH.Selected := TV_HH.Items[i];
        break; //找到就退出整个循环！
      end;

Answer 4

应该充分利用ttreenode 的 data属性

Answer 5

to godnoloveihavelove(快感):
   发给我例子给我，行吗？
[email protected]