[求助]一开始用得挺好，然后就出了问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

专家您好！我在窗口中设计了一个控件“合同号栏”
图片点击可在新窗口打开查看

此主题相关图片如下：未命名.bmp

，在该窗口的事件Afterload中编写如下代码：

Dim txtBox As WinForm.TextBox

txtBox = e.Form.Controls("合同号栏")

txtBox.ReadOnly = BooleanEnum.True

在该控件的事件leave中编写代码：e.Sender.HideToolTip()

在该控件的事件Validating编写代码：

Tables("内部合同").Current("合同编号") = e.Sender.Text

If e.Sender.Value Is Nothing Then

e.Cancel = True

End If

With Forms("抽油杆分公司内部合同录入窗口").Controls("合同号栏")

Dim txt As String = .Value

If txt = "" OrElse txt.Length <> 11 Then

Messagebox.Show("必须按格式输入编号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

End With

以前运行没有问题，但昨天开始运行时，在控件“合同号栏”按格式输入2016-001-01后，显示“必须按格式输入编号！”，和上图错误提示，但在“内部合同”的表中已经输入了正确编号，如图
图片点击可在新窗口打开查看

此主题相关图片如下：未命名1.bmp

重新输入有时候提示错误，有时候不再提示。

请问专家上述编码错在哪里？

validating事件

Dim txt As String = e.Sender.Text
If txt = "" OrElse txt.Length <> 11 Then
    e.Cancel = true
    Messagebox.Show("必须按格式输入编号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
Tables("内部合同").Current("合同编号") = e.Sender.Text

修改后，为什么输入的数据在鼠标离开的时候在窗口中的控件内消失了，表中的数据还在

做个实例发上来。