以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  当指定列不符合要求时,禁止下一步编辑问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=125471)

--  作者:aza520
--  发布时间:2018/9/28 18:53:00
--  当指定列不符合要求时,禁止下一步编辑问题
想实现当A列输入的值字符长度不等于8时,进行提示,并禁止对其它列的单元格进行编辑。
我是在表的DataColChanged事件设如下代码,当输入的值字符长度不等于8时出现提示,但关闭提示框后仍可对其它列的单元格进行编辑,请问老师该怎么修改
If e.DataTable.find("len(工资所属月份) <> 8 ") IsNot Nothing Then
    e.Cancel = True \'那么取消输入并提示用户
    Messagebox.Show("请输入完整格式,如\'2018年06月\'或\'2018年12月\'!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

--  作者:有点蓝
--  发布时间:2018/9/28 20:01:00
--  
DataColChanging事件

If e.DataCol.name = "工资所属月份"
    If e.newvalue > "" AndAlso e.newvalue.length <> 8 Then
        e.Cancel = True \'那么取消输入并提示用户
        Messagebox.Show("请输入完整格式,如\'2018年06月\'或\'2018年12月\'!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If