以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  双击单元格  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129714)
--  作者：蓝蚂蚁
--  发布时间：2019/1/4 14:59:00
--  双击单元格
双击窗口副本表的单元格，其DoubleClick代码：
Select Case e.Col.Name
    Case "编号"
        If Forms("窗口1").opened()
            If e.Form.Controls("CheckBox1").Checked =False  Then
                Dim Str1 As String = e.Row("编号")
                clipBoard.SetText(Str1)  \'把编号内容复制到粘贴板
                If  e.Row("挂网")=False Then
                    e.Row("挂网")=True
                Else
                    e.Row("挂网")=False
                End If
            Else
                MessageBox.Show("双击编号锁已锁上,请解锁后再操作!", "提示")
            End If
        End If
End Select
代码作用：双击“编号”单元格时，如果挂网列没有勾选，则勾选，如果已经勾选，则去掉勾选。现在遇到的问题是：如果挂网是不勾选的话，第一次双击，它会变成勾选状态，鼠标没有离开该单元格，继续双击，则挂网没有反应（即不会变成不勾选的状态）；请问老师是不是代码有问题？
--  作者：蓝蚂蚁
--  发布时间：2019/1/4 15:01:00
--  
已解决了
加上代码：e.Cancel = True,禁止进入编辑状态，