主题：奇怪，为什么不能成生treeview

  Dim dt As datatable = DataTables("单位树")
Dim dt2 As list(of DataRow)
Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = e.Form.Controls("TreeView1")
dt2 = dt.Select(" [标题id] Like '??' ")
For Each dr1 As DataRow In dt2
    Dim str2 As String = dr1("标题id")
    Dim str3 As String = dr1("标题")
    nd = Tr.Nodes.Add(str2,str3)
    dt2 = dt.Select("[标题id] like '"& str2 &"?? ' ")
   For Each dr2 As DataRow In dt2
        str2 = dr2("标题ID")
        str3 = dr2("标题")
        nd.Nodes.Add(str2,str3)
       dt2 =dt.Select("[标题id] like '"& str2 &"?? ' ")
  Next
Next

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目9.rar

如果只想筛选出只有两个字符的数据记录，代码要怎么写呀

领导如果这一则案例treeview 下一级是“无限延伸”（用户定义了三级，或者5级），那么如何生成呢。比如“华海仓库管理”中的参数设置窗口－－－单位树treeview，就是无限性的　延伸下级，同时又能根据数据记录生成treeview这个目录树

删除节点又出了新的情况:

还是这一例，我使用了M版的方案，treeview生成了，但是删除节点又出了新的情况

  Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = Forms("参数设置").Controls("TreeView1")
nd = tr.SelectedNode
If MsgBox("确认删除类型:" & nd.text & " ?",65,"提示") = 1 Then
Dim b  As String = nd.Name
b = b & "*"
    DataTables("单位树").DeleteFor("[标题id] like '"& b &"' ")
    nd.Remove
End If

实际没有删除、