双击窗口副本表的单元格,其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
代码作用:双击“编号”单元格时,如果挂网列没有勾选,则勾选,如果已经勾选,则去掉勾选。现在遇到的问题是:如果挂网是不勾选的话,第一次双击,它会变成勾选状态,鼠标没有离开该单元格,继续双击,则挂网没有反应(即不会变成不勾选的状态);请问老师是不是代码有问题?