以文本方式查看主题

-  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