主题：求专家们指点指点隐藏列的问题。

此主题相关图片如下：tupian.jpg

设置窗口全局事件CheckedChanged的代码为：
 
Dim chk As WinForm.CheckBox = e.Sender
Tables("表名").Cols(chk.Text).Visible = chk.Name

“隐藏列”按钮有什么代码吗？上面的代码已经做了，但是弹出“错误代码”提示框啊，麻烦您老人家啦

两个按钮是多余的，不需要的了，要显示那一列，就勾选那一列，要隐藏那一列，就去掉这一列的勾选。

搞不定，就传你的文件。

 

 

其实foxtable内置的窗口，不是很好的吗：

 

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

 

我的意思是在自己设计的窗口中实现隐藏列的功能，上面的代码总是出错，麻烦狐狸爸爸指明方向啊，拜托啦

用例子说话。

依照狐狸爸爸给的窗口全局事件CheckedChanged的代码后，执行的情况如下图：

 

 

 

此主题相关图片如下：cuowu.jpg

For Each c As WinForm.Control In e.Form.Controls
    For Each cl As Col In Tables("窗口3_Table1").Cols
        If Typeof c Is WinForm.CheckBox  Then '判断控件是否是文本框
            Dim t As WinForm.CheckBox  = c
            If cl.Name = t.Text Then'使用特定类型的变量引用控件
                If t.Checked = True Then
                    Tables("窗口3_Table1").Cols(t.Text).Visible = False
                End If
            End If
        End If
    Next
Next

 

这个是放在按钮中执行的.

老大的代码改成这样:

 

Tables("窗口3_Table1").Cols(e.Sender.Text).Visible = False   就可以了,注意表名不要错了.