主题：奇怪，为什么不能成生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