- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求窗口事件代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108436)
-- 发布时间：2017/10/23 9:34:00
-- 求窗口事件代码
如题，求系统自带窗口内所有事件代码，想在此基础上进行修改自定义窗口，请老师给出如下图窗口的所有事件代码：
此主题相关图片如下：隐藏列.jpg
-- 发布时间：2017/10/23 9:54:00
--
参考
| 下载信息 [文件大小：328.0 KB 下载次数：1] | |
 点击浏览该文件:显示隐藏列.table |
-- 发布时间：2017/10/23 10:28:00
-- 回复：（有点甜）参考 下载信息&nbs...
上移，下移，反选的代码呢？
-- 发布时间：2017/10/23 11:06:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:显示隐藏列.table |
-- 发布时间：2017/12/7 19:25:00
--
上面的隐藏列中 怎么在添加一项自动使用列宽度
-- 发布时间：2017/12/7 20:57:00
--
以下是引用6378929在2017/12/7 19:25:00的发言：
上面的隐藏列中 怎么在添加一项自动使用列宽度
上面的隐藏列中 怎么在添加一项自动使用列宽度
自动列宽度指什么？这个？
http://www.foxtable.com/webhelp/scr/1669.htm
-- 发布时间：2017/12/7 21:31:00
--
怎么后面括号里面还有重复内容呢
此主题相关图片如下：002.png
-- 发布时间：2017/12/7 21:34:00
--
左边的是列名，括号里面的是列标题，如果你不需要，可以去掉，前提是你先看懂例子里面的代码。
-- 发布时间：2017/12/8 12:33:00
--
请版主帮忙写下代码保留左边的是列名， 去掉括号里面的是列标题
-- 发布时间：2017/12/8 14:25:00
--
AfterLoad事件
Dim str As String = ""
For Each c As Col In CurrentTable.Cols
str &= c.Name & "|"
Next
e.Form.Controls("CheckedListBox1").ComboList = str.Trim("|")
Dim clist As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
For Each c As Col In CurrentTable.Cols
clist.SetItemChecked(c.Index, not c.Visible)
Next