主题：帮我看看这个代码有错吗？为什么可以不停的点击呢？是狐表BUG吗？

我在窗体上建立了一个checkbox控件，关联表里面的逻辑列。  当我选择它后，会执行别的代码。 

我的意思是选择后，就立马锁定行了。不可以重复选定。

因为重复锁定，会一次一次的执行别的代码。

但是，我写了锁定的代码，假如说按键就放在checkbox控件上，不停的点击，却发现没起作用，可以一次一次的锁定。假如锁定一下，再点一下别处，就不会一次一次的锁定了。

帮我看看我的锁定代码是不是有问题？

    e.Form.Controls("下单").Checked = True
    Syscmd.Row.Lock()
    Tables("市场").Current.Save()

    Dim chk As WinForm.CheckBox
    chk = Forms("市场").Controls("下单")
    chk.Checked = True
    Tables("市场").Current.Locked = True

我换成这样也不行。

我是怎么知道的，因为我设置的是当 点击 CHECKBOX 控件后，执行的代码是复制当前行到别的表。

当然，只复制一遍。谁知别的表里面出现了很多遍。