主题：窗口设计

此主题相关图片如下：1.png

 

老师，这个左上交的展开和折叠，预览的时候还有呢，应用的时候就被目录树挤上去了，这是为啥，我也锚定了

此主题相关图片如下：1.png

 

老师，这个表就两列，如何设置列宽，才能锚定窗口，怎么拉都没有空白，左右方向

此主题相关图片如下：1.png

老师，左边这个目录树是通过递归生成的，我想用这个目录树实现筛选功能

Dim nms As String() = {"superName","organName"} '指定生成目录树的各列
Dim qts As String() = {"'","'"} '指定将各列的值括起来的符号,这里都是字符型,所以都是单引号
Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
Dim nd As WinForm.TreeNode
For Each nd In e.node.allNodes '清除子节点的选中标记
    nd.Checked = False
Next
nd = e.Node.ParentNode
Do While nd IsNot Nothing '清除父节点的选中标记
    nd.Checked = False
    nd = nd.ParentNode
Loop
For Each nd In trv.AllNodes
    If nd.Checked  Then
        Dim rts() As String = nd.FullPath.Split("\")
        Dim val As String = ""
        For i As Integer = 0 To rts.length - 1
            If val > "" Then
                val = val & " And "
            End If
            val = val & nms(i) & " = " & qts(i) & rts(i) & qts(i)
        Next
        If flt > "" Then
            flt = flt & " Or (" & val & ")"
        Else
            flt = val
        End If
    End If
Next
Tables("organList").Filter  = flt

 

提示数组越界了，因为我是用2列生成的，但是生成的目录树是三级，我觉得这段代码的思想肯定可以用，就是不知在哪里改一下？怎么能认出来这三级

此主题相关图片如下：1.png

老师，不知为啥这里左边有个缝，预览时好的 ，锚定都是、topleft

Dim nms As String() = {"superName","organName"} '指定生成目录树的各列
Dim qts As String() = {"'","'"} '指定将各列的值括起来的符号,这里都是字符型,所以都是单引号
Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
Dim nd As WinForm.TreeNode
For Each nd In e.node.allNodes '清除子节点的选中标记
    nd.Checked = False
Next
nd = e.Node.ParentNode
Do While nd IsNot Nothing '清除父节点的选中标记
    nd.Checked = False
    nd = nd.ParentNode
Loop
For Each nd In trv.AllNodes
    If nd.Checked  Then
        Dim rts() As String = nd.FullPath.Split("\")
        Dim val As String = ""
        For i As Integer = 0 To rts.length - 1
            If val > "" Then
                val = val & " And "
            End If
            val = val & nms(i) & " = " & qts(i) & rts(i) & qts(i)
        Next
        If flt > "" Then
            flt = flt & " Or (" & val & ")"
        Else
            flt = val
        End If
    End If
Next
Tables("organList").Filter  = flt

 

为啥这个通用的目录树checked代码，当复选框都未选中时，表中数据都列出来，您昨天晚上给改的，当复选框都未选中时，表中数据为空，我实在看不成来原因，请老师指点一下？难道因为我这个目录树是递归生成的么？

 

 

 

 

 

感谢老师！！！！！

老师，还是不行

 

1、Tables("organList").Filter = "1=2"不行，替换为 Tables("organList").Filter = " " 每次打开后是都显示，但是做一次选择后，又成空表了。

2、就是你选一次后，把对号勾掉后， 表就是空的，筛选功能没有问题，就是你不勾选，表就是空的。

太厉害了！！