- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求专家们指点指点隐藏列的问题。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=16475)
-- 发布时间：2012/2/15 11:28:00
-- 求专家们指点指点隐藏列的问题。
此主题相关图片如下：tupian.jpg
-- 发布时间：2012/2/15 11:37:00
--
设置窗口全局事件CheckedChanged的代码为：
Dim chk As WinForm.CheckBox = e.Sender
Tables("表名").Cols(chk.Text).Visible = chk.Name
-- 发布时间：2012/2/15 12:01:00
--
“隐藏列”按钮有什么代码吗？上面的代码已经做了，但是弹出“错误代码”提示框啊，麻烦您老人家啦
-- 发布时间：2012/2/15 12:03:00
--
两个按钮是多余的，不需要的了，要显示那一列，就勾选那一列，要隐藏那一列，就去掉这一列的勾选。
搞不定，就传你的文件。
-- 发布时间：2012/2/15 12:04:00
--
其实foxtable内置的窗口，不是很好的吗：
http://www.foxtable.com/help/topics/0037.htm
-- 发布时间：2012/2/15 13:29:00
--
我的意思是在自己设计的窗口中实现隐藏列的功能，上面的代码总是出错，麻烦狐狸爸爸指明方向啊，拜托啦
-- 发布时间：2012/2/15 15:02:00
--
用例子说话。
-- 发布时间：2012/2/15 15:43:00
--
依照狐狸爸爸给的窗口全局事件CheckedChanged的代码后，执行的情况如下图：
此主题相关图片如下：cuowu.jpg
-- 发布时间：2012/2/15 16:20:00
--
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
这个是放在按钮中执行的.
[此贴子已经被作者于2012-2-15 16:20:00编辑过]
-- 发布时间：2012/2/15 16:23:00
--
老大的代码改成这样:
Tables("窗口3_Table1").Cols(e.Sender.Text).Visible = False 就可以了,注意表名不要错了.