- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]同步 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81229)
-- 发布时间：2016/2/22 11:21:00
-- [求助]同步
老师，我要让列表复筛框和窗口的Table表同步。
-- 发布时间：2016/2/22 12:16:00
--
汗，具体例子呢？怎么知道你指什么。
-- 发布时间：2016/2/22 12:42:00
--
此主题相关图片如下：图像 1.png
-- 发布时间：2016/2/22 12:45:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2016/2/22 12:54:00
--
要跟你说多少次？
For Each c As Col In e.Form.Controls("Table1").Table.Cols
e.Form.Controls("CheckedListBox1").Items.Add(c.name)
Next
-- 发布时间：2016/2/22 13:07:00
--
老师，加载后能更新同步。
-- 发布时间：2016/2/22 14:19:00
--
那就写到加载后面去。
-- 发布时间：2016/2/22 14:20:00
--
e.Form.Controls("CheckedListBox1").Items.Clear
For Each c As Col In e.Form.Controls("Table1").Table.Cols
e.Form.Controls("CheckedListBox1").Items.Add(c.name)
Next
-- 发布时间：2016/2/22 15:10:00
--
老师，求复筛列表框退钩和打钩按钮。
-- 发布时间：2016/2/22 15:14:00
--
Dim lst As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
lst.SetItemChecked(lst.SelectedIndex, true)