\"展開しようとしている上位キーを取得し、それによってDataStorを検索し、\"
って事は、階層毎に異なるDataStorを検索してるのでしょうか？

すると、各階層毎に異なるテーブルを変更できるようなものができそうですね。
僕にはチンプンカンプンでしたので、勉強させていただきます。(^^;)

僕が最近ようやく少し理解してきて記述したのが以下です。

変数 = String(dw_1.Object.カラム名[li_row])
//以下を検索した件数回繰りかえす。
if key_word <> key_word_last   then
　tree_level_1.label = key_word   //階層１ 
　tree_level_1.data  = key_word
　tree_level_1.pictureindex  = 1
　tree_level_1.selectedpictureindex  = 2
　tree_level_1.children = title_name <> \"\"
　tree_handle_level_1 = tv_1.InsertItemLast(0,tree_level_1)
end if
if id_nam <> id_nam_last   then
　tree_level_2.label = title_name //階層２
　tree_level_2.data  = id_nam     //詳細を検索するキー
　tree_level_2.pictureindex  = 2
　tree_level_2.selectedpictureindex  = 2
　tree_level_2.children = True
　tree_handle_level_2 = tv_1.InsertItemLast(tree_handle_level_1,tree_level_2)
end if
key_word_last   = key_word
id_nam_last     = id_nam
title_name_last = title_name

これを行うと、１つのテーブルから２つの階層を作れます。