以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  全选  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=84913)
--  作者：ayiken
--  发布时间：2016/5/12 21:45:00
--  全选

老师们好！

我发一个例子，有一窗口中很多逻辑单选框，请问下面的全选，全清，选择1-4-7列按钮代码？，请看例子

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:选择.rar
--  作者：大红袍
--  发布时间：2016/5/12 23:15:00
--  

CheckedChanged事件

 

For Each c As Col In Tables("表A").cols
    If c.IsBoolean Then
        Tables("表A").Current(c.name) = e.sender.Checked
    End If
Next

 

-----------------------------

 

Dim cs() As String = {"第一列", "第七列"}
For Each c As String In cs
    Tables("表A").Current(c) = e.sender.Checked
Next