主题：复选框，全选的按钮代码怎么设？

各位老师好，

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.你是想通过按钮来实现还是鼠标

 

 

 

谢谢rjh4078老师，第3点是想通过鼠标实现！！

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

至于不连续的，逐个复选框单击吧

选中你需要勾选的行焦点,一点复选框就会全部同步了

已经基本能实现，还有一点小小不明白，因为赶着周一给领导演示软件，就先这样了，等回头再来研究透。谢谢各位老师。

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

 

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