以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  如何实现窗口上单击表头实现复选框全选？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185298)

--  作者：lgz518 --  发布时间：2023/2/15 11:04:00 --  如何实现窗口上单击表头实现复选框全选？ 如何实现窗口上单击表头实现复选框全选？如图绿色圈单击，当前表的复选框就全选，关键是当前表的显示的数据的全选，不是包后台 此主题相关图片如下：全选.jpg

--  作者：有点蓝 --  发布时间：2023/2/15 11:09:00 --   添加一个复选框控件，置于顶层，拖到合适的位置。复选框勾选事件CheckedChanged里，遍历窗口表所有行进行勾选即可

--  作者：lgz518 --  发布时间：2023/2/15 13:55:00 --   Dim chk As WinForm.CheckBox chk = Forms("窗口4").Controls("CheckBox1") chk.Checked = True Tables("AA").ShowCheckBox = True For Each chk As Row In Tables("AA").GetCheckedRows     chk.Checked = True Next 上面执行不了，请老师帮助

--  作者：有点蓝 --  发布时间：2023/2/15 14:04:00 --   For Each chk As Row In Tables("AA").GetCheckedRows     chk.Checked = e.sender.Checked  Next

--  作者：lgz518 --  发布时间：2023/2/15 14:36:00 --   问题一： 代码执行报错提示：chk变量隐在 For Each chk As Row In Tables("AA").GetCheckedRows     chk.Checked = e.sender.Checked  Next Tables("AA").ShowCheckBox = True Dim chk As WinForm.CheckBox chk = Forms("窗口4").Controls("CheckBox1") chk.Checked = True For Each chk As Row In Tables("AA").GetCheckedRows     chk.Checked = e.sender.Checked  Next 问题二： 下面代码是批量清空所有选中，如何实现批量选中？ Tables("AA").ClearCheckedRows

--  作者：有点蓝 --  发布时间：2023/2/15 14:44:00 --   只保留4楼代码，其它代码全部去掉

--  作者：lgz518 --  发布时间：2023/2/15 15:59:00 --   For Each chk As Row In Tables("AA").GetCheckedRows     chk.Checked = e.sender.Checked  Next 执行上面没反映

--  作者：有点蓝 --  发布时间：2023/2/15 16:10:00 --   请上传实例说明

--  作者：lgz518 --  发布时间：2023/2/15 16:39:00 --    下载信息  [文件大小：   下载次数： ] 点击浏览该文件:复选框 - 副本.rar

--  作者：有点蓝 --  发布时间：2023/2/15 16:45:00 --    下载信息  [文件大小：   下载次数： ] 点击浏览该文件:复选框 - 副本.zip