- 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=24753)
-- 发布时间：2012/10/22 16:19:00
-- 全选反选复选框
求助：请教全选和反选复选框的代码怎么写
-- 发布时间：2012/10/22 16:52:00
--
方法一：控件命名规范话，这样，就可以直接找到想要的空间。
方法二：把复选框放到一个单独的容器里，然后找到容器，遍历里面的复选框。
方式三：...........这就不写了。
-- 发布时间：2012/10/22 16:56:00
--
全选逻辑列
With CurrentTable
If .DataTable.DataCols(.Cols(.colsel).Name).IsBoolean Then
.DataTable.ReplaceFor( .Cols(.colsel).Name ,True)
Else
MessageBox.Show("请先选择逻辑列","提示")
End If
End With
反选逻辑列
With CurrentTable
If .DataTable.DataCols(.Cols(.colsel).Name).IsBoolean Then
For Each r As Row In .Rows
r(.ColSel) = not r(.ColSel)
Next
Else
MessageBox.Show("请先选择逻辑列","提示")
End If
End With
全清逻辑列
With CurrentTable
If .DataTable.DataCols(.Cols(.colsel).Name).IsBoolean Then
For Each r As Row In .Rows
r(.ColSel) = False
Next
Else
MessageBox.Show("请先选择逻辑列","提示")
End If
End With
全清复选框
CurrentTable.ClearCheckedRows
-- 发布时间：2012/10/23 10:43:00
--
灰常感谢！借鉴一下
-- 发布时间：2012/10/23 10:47:00
--
不过我想用的全选和反选复选框达到这种效果，请见图
此主题相关图片如下：未命名.jpg
-- 发布时间：2012/10/23 11:08:00
--
你这个其实不好做 自己做个逻辑列 多好
-- 发布时间：2012/10/23 11:14:00
--
楼主上个例子。
-- 发布时间：2012/10/23 11:54:00
--
这个我是做出来的，可是重新打开项目全选反选就起不了作用了，不知道什么原因！
-- 发布时间：2012/10/23 13:12:00
--
以下是引用Siluy_kl1017在2012-10-23 11:54:00的发言：
这个我是做出来的，可是重新打开项目全选反选就起不了作用了，不知道什么原因！
这个我是做出来的，可是重新打开项目全选反选就起不了作用了，不知道什么原因！
你做的那个，只是起到显示的效果，并没有存储。需要多加一列来保存你选择以后的信息。