以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  动态加载时递归函数目录树不能生成  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=58752)
--  作者：feiyu988
--  发布时间：2014/10/23 9:26:00
--  动态加载时递归函数目录树不能生成

数据在动态加载时，递归函数生成的目录树不能生成，怎样才能在后台生成呢，

 

Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("分级码表")
tv.StopRedraw()
tv.Nodes.Clear
Dim lst As List(Of String) = dt.GetValues("物资编码")
For Each dr As DataRow In dt.Datarows
    If dr("上级编号") = Nothing Then    
        nd = tv.Nodes.Add(dr("物资编码"),dr("物资名称"))
        Functions.Execute("物资递归函数",nd,dt)
    End If
Next
tv.ResumeRedraw()
--  作者：Bin
--  发布时间：2014/10/23 9:34:00
--  
用 SQLCOMMAND  把后台表查询出来,再基于这个查询出来的表生成
--  作者：有点甜
--  发布时间：2014/10/23 9:36:00
--  

http://www.foxtable.com/help/topics/0696.htm

 
--  作者：feiyu988
--  发布时间：2014/10/23 9:37:00
--  
能具体的给修改一下代码吗，现在晕菜了，搞不清了
--  作者：有点甜
--  发布时间：2014/10/23 9:39:00
--  
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox
cmd.CommandText = "SELECT * From {分级码表}"
dt = cmd.ExecuteReader()