这个忙能否帮一下，无奈啊。。。

Question

做判断吧，
if check1.value=1 then
   call check1_click
end if

Answer 1

Private Sub Check1_Click()
If Check1.Tag = "" Then
   Check1.Tag = "a"
Else
   保存数据
End If
End Sub

Answer 2

Private Sub Check1_Click()
    If Check1.Value Then
        '打开数据库，更新记录内容
        ……
    End If
end Sub

Answer 3

不写checkbox的click事件
在确定按钮的click事件中作批更新

Answer 4

回 xsp(半个程序员) 
用tag属性是一个不错的方法，但问题还是不能解决，原因所在是当你移动操作员是tag已经赋值，刷新权限时还是有问题的
其余的朋友的答案没有一个对的，不过还是十分感谢你们的参与，谢谢
继续关注！！！
高手快快献身啊

Answer 5

才看明白题目，不好意思。
解决这个问题有一个比较好的方式，不知道楼主是否愿意采纳，即操作员用ListBox做列表，而权限控制用一个TreeView,很方便。我有一个现成的模块，不过在家里。 @_@

Answer 6

大概有点明白楼主的意思了。>_< 不容易~~~~~我有现成的权限管理模块，ListBox + TreeView 可以对应数据库实现多级权限管理。
楼主又何必用checkbox呢？如果权限比较多，而且较为复杂的时候，还不够和Checkbox较劲的呢......

Answer 7

回 Cooly(Lazy) 
谢谢你的热心
我做的是个小程序，模块较少，而且用checkbox比较直观，如果用treeview的话，我增加或去除权限好象不太好控制。
其实解决方案很多，我就想尝试一下这种算法。西西
敢问兄弟是做什么的啊，在哪里高就啊？
继续关注

Answer 8

楼主的Checkbox是控件数组吗？

Answer 9

嗯，有这种办法试试。修改权限的代码不要通过Check_Click事件调用，换成Check1_MouseUp事件。