- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]隐藏 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80966)
-- 发布时间：2016/2/15 9:00:00
-- [求助]隐藏
老师好，求、控件复选列表框对窗口副表"Table1"列选定后隐藏。
-- 发布时间：2016/2/15 10:02:00
--
参考
| 下载信息 [文件大小：328.0 KB 下载次数：15] | |
 点击浏览该文件:显示隐藏列.table |
-- 发布时间：2016/2/15 10:39:00
--
Dim clist As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
For i As Integer = clist.Items.Count - 1 To 0 Step -1
CurrentTable.Cols(i).Visible = not clist.GetItemChecked(i)
Next
老师，上面代码是打钩隐藏我是要相反的。望老师修改。
-- 发布时间：2016/2/15 10:40:00
--
Dim clist As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
For i As Integer = clist.Items.Count - 1 To 0 Step -1
CurrentTable.Cols(i).Visible = clist.GetItemChecked(i)
Next
-- 发布时间：2016/2/15 11:03:00
--
以下是引用大红袍在2016/2/15 10:40:00的发言：
Dim clist As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
For i As Integer = clist.Items.Count - 1 To 0 Step -1
CurrentTable.Cols(i).Visible = clist.GetItemChecked(i)
Next
老师，对窗口付表列的显示和隐藏怎样修改。
-- 发布时间：2016/2/15 11:04:00
--
表名写对即可
Dim clist As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
For i As Integer = clist.Items.Count - 1 To 0 Step -1
e.Form.Controls("Table1").Table.Cols(i).Visible = clist.GetItemChecked(i)
Next
-- 发布时间：2016/2/15 11:23:00
--
谢谢我的好老师。我是60岁学吹打。
-- 发布时间：2016/2/15 13:08:00
--
老师，下面是打印代码，问题是标题和页眉水平没有落差，我要让页眉靠近表格边线。代码是网上搜来的。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建 文本文档.txt |
-- 发布时间：2016/2/15 14:13:00
--
上传具体例子说明问题。
-- 发布时间：2016/2/15 14:39:00
--
下面是打印代码，问题是标题和页眉水平没有落差，我要让页眉靠近表格边线。代码是网上搜来的
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目83.table |