主题：关于权限控制代码

如果不管这个控件有没有值，其它控件都正常计算，那就不要使用if判断，直接去掉即可

已解决，非常感谢老师的耐心指导

我把临时表绑定的表控件设置为sqltable，想在窗口显示筛选树，

1、将窗口的AfterLoad事件设为：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("窗口1_Table1", "乡镇街道|行政村名")
trv.Nodes.Insert("显示所有行",0)

2、将目录树的NodeMouseDoubleClick事件设为：

Dim Filter As String

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行

If e.Node.Text <> "显示所有行" Then

    Select Case e.Node.Level

        Case 0

            Filter = "[乡镇街道] = '" & dr("乡镇街道") & "'"

        Case 1

            Filter = "[乡镇街道] = '" & dr("乡镇街道") & "' And [行政村名] = '" & dr("行政村名") & "'" 

    End Select

End If

Tables("窗口1_Table1").Filter = Filter

3、将窗口的“自动打开”属性设为True。

运行出错，提示“无效列名：乡镇街道”。请教老师如何修改代码？

不要设置为自动打开，到AfterOpenProject事件写代码打开窗口

在AfterOpenProject写代码

Forms("窗口1_Table1").Show

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")

trv1.BuildTree("窗口1_Table1", "乡镇街道|行政村名")

trv1.Nodes.Insert("显示所有行", 0)

提示出现未知编译错误

其它所有代码都不变，AfterOpenProject写代码

Forms("窗口1").open

老师，还是不行，还是提示“无效列名：乡镇街道”。因这是临时表，项目打开时，窗口表还未统计无数据，无法生成目录树。能否在窗口添加一个按钮，写上代码，按下按钮后，得到一个筛选树。

比如窗口按钮代码：Tables("窗口1_Table1").OpenFilterTree("乡镇街道|行政村名")

临时表不能使用OpenFilterTree，要使用这种：http://www.foxtable.com/webhelp/topics/3369.htm

Tables("统计表1").Cols("第一列").TextAlign = TextAlignEnum.Center