主题：窗口设计

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

 

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

1、锚定请恢复改成 top, left

 

2、有问题请上传具体项目测试

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

 

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

sizeChanged事件

 

Dim t As Table = e.Form.controls("table1").Table
Dim cs1 As String = "第二列,第三列"
Dim w As Integer = t.grid.width-30
Dim ary1 = cs1.split(",")

For i As Integer = 0 To ary1.length-1
    t.cols(ary1(i)).width = w / 2
Next

此主题相关图片如下：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列生成的，但是生成的目录树是三级，我觉得这段代码的思想肯定可以用，就是不知在哪里改一下？怎么能认出来这三级

Dim trv As WinForm.TreeView = e.Sender
Dim flt As String = "1=2"
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
        flt = flt & " Or superName='" & nd.text & "' or organName='" & nd.text & "'"
    End If
Next
Tables("organList").Filter  = flt

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

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

1、位置设置成 0、0（左，上）

 

2、如果还有问题，上传具体foxtable例子测试。

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

 

 

 

 

 

afterLoad事件，写代码

 

Tables("organList").Filter = "1=2"