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

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