以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]想根据checkedcombobox生成目录树  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=176483)
--  作者：81538475
--  发布时间：2022/4/14 17:15:00
--  [求助]想根据checkedcombobox生成目录树
Dim trv As WinForm.TreeView = forms("筛选树测试").Controls("TreeView1")
trv.BuildTree(dt, ckbb1.Text )
trv.StopRedraw
Dim fi As String=""
Dim fi0 As String=""

Dim sb As Integer =0

For Each nd As WinForm.TreeNode In trv.AllNodes
    

    If ND.Level = 0 Then
        fi = jds(0) & " = \'" & nd.DataRow(jds(0)) & "\'"
        fi0 =FI
    Else
        If nd.Level = sb OrElse nd.Level < sb Then
            fi = fi0
        End If
    End If
    Output.Show(ND.Level)
    Output.Show("FI0=" & fi0)
    Output.Show("XX" & FI  )
    \'If ND.Nodes.Count>0 Then
    
    
    
    For i As Integer =0 To jds.Count -1
        
        If nd.Level = i AndAlso nd.Level>0 Then \'AndAlso nd.Level<>sb
            
            
                fi0=fi
                fi = jds(I) & " = \'" & nd.DataRow(jds(I)) & "\' and " & fi
                
            
            sb = nd.Level
            
        End If
        
    Next
    Output.Show(fi )
    nd.Text =nd.Text & "(" & dt.Compute("Sum(设备数)",fi ) & "台)"
 
Next


trv.ResumeRedraw


感觉被绕晕了。。。
--  作者：有点蓝
--  发布时间：2022/4/14 17:26:00
--  
请截图，上传实例说明
--  作者：81538475
--  发布时间：2022/4/14 17:27:00
--  
图片点击可在新窗口打开查看 或者有没有类似用checkedcombobox生成目录树的例子
--  作者：有点蓝
--  发布时间：2022/4/14 17:36:00
--  
就几个字符，生成怎么样的目录树？
--  作者：有点蓝
--  发布时间：2022/4/14 17:37:00
--  
手工生成目录树？http://www.foxtable.com/webhelp/topics/2244.htm
--  作者：81538475
--  发布时间：2022/4/14 18:02:00
--  
哦哦。是会根据这个表来生成图片点击可在新窗口打开查看

可能问题应该是用目录树做筛选树
[此贴子已经被作者于2022/4/14 18:07:56编辑过]
--  作者：有点蓝
--  发布时间：2022/4/14 20:13:00
--  
请上传实例说明