以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  复选框，全选的按钮代码怎么设？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=46904)
--  作者：fubblyc
--  发布时间：2014/3/1 0:08:00
--  复选框，全选的按钮代码怎么设？
各位老师好，

几个关于复选框的问题：

1.一个按钮，点一下，清除所有行的复选框的代码是：Tables("员工").ClearCheckedRows

那全选呢。。。帮助上没有找到。。。

2.Tables("员工").Current.Checked = True   代表点击某一行，某一行就选中

那如果要实现在已经选中复选框的某一行再点一次，则取消复选，要怎么写呢。。。


3.表的行的选中，可否用Ctrl进行不连续多选，用Shift进行连续多选呢？

谢谢各位老师！！！
--  作者：rjh4078
--  发布时间：2014/3/1 0:50:00
--  

1. for each r as row in tables("员工").ROWS

       if r.Checked=false then

           r.checked=true

       end if

    next 

2.

   with tables("员工")

     if .current isnot nothing then

     .Current.Checked = not .Current.Checked

    End if

  End with

3.你是想通过按钮来实现还是鼠标

 

 

 
--  作者：fubblyc
--  发布时间：2014/3/1 7:11:00
--  
谢谢rjh4078老师，第3点是想通过鼠标实现！！
--  作者：狐狸爸爸
--  发布时间：2014/3/1 8:56:00
--  

对于复选框，选定多行，安装ctrl键，单击其中一行的复选框，即可全部选中。

至于不连续的，逐个复选框单击吧
--  作者：Bin
--  发布时间：2014/3/1 9:51:00
--  
选中你需要勾选的行焦点,一点复选框就会全部同步了
--  作者：fubblyc
--  发布时间：2014/3/1 10:03:00
--  
已经基本能实现，还有一点小小不明白，因为赶着周一给领导演示软件，就先这样了，等回头再来研究透。谢谢各位老师。
--  作者：ztmdnzc
--  发布时间：2014/3/1 23:03:00
--  

既然有清除所有行的复选框用ClearCheckedRows，为什么全部选中还要狐友用for each 或“选定多行，安装ctrl键，单击其中一行的复选框，即可全部选中”？

 

本是几个字母就搞定的事情，干嘛不简化呢？