[求助]一开始用得挺好，然后就出了问题 - 专家坐堂 - 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

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

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

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

我的空表如图

此主题相关图片如下：空表.bmp

我的录入界面

此主题相关图片如下：录入界面.bmp

，

点击“录入新合同”后如图：
图片点击可在新窗口打开查看

此主题相关图片如下：录入界面.bmp

录入“2016-001-0”时正常，当录入最后一个数字“1”时，控件内的全部数字消失，但表中新增一行，“2016-001-01”内容还在

此主题相关图片如下：录入.bmp

这是表中的内容

此主题相关图片如下：录入1.bmp

窗口和控件都没有TextChanged事件代码。

内部合同表如图：

此主题相关图片如下：内部合同表.bmp

在表属性中的Datacolchanged事件中代码如下：

Select Case e.DataCol.Name

Case "品种_杆径"

Dim dr As DataRow = e.DataRow

Dim pr1 As DataRow

Dim pr2 As DataRow

Dim pr3 As DataRow

Dim pr4 As DataRow

Dim pr5 As DataRow

Dim pr6 As DataRow

Dim filter1 As String

filter1 = "品种_杆径 = '" & dr("品种_杆径") & "'"

pr1 = DataTables("编号列表1").Find(filter1)

If pr1 IsNot Nothing Then

dr("品种_杆径编号") = pr1("品种_杆径编号")

End If

dr("品种_ID") = dr("品种_杆径编号")

Case "品种_材质"

Dim dr As DataRow = e.DataRow

Dim pr2 As DataRow

Dim filter2 As String

filter2 = "品种_材质 = '" & dr("品种_材质") & "'"

pr2 = DataTables("编号列表2").Find(filter2)

If pr2 IsNot Nothing Then

dr("品种_材质编号") = pr2("品种_材质编号")

End If

dr("品种_ID") = dr("品种_杆径编号") & dr("品种_材质编号")

Case "品种_长度"

Dim dr As DataRow = e.DataRow

Dim pr3 As DataRow

Dim filter3 As String

filter3 = "品种_长度 = '" & dr("品种_长度") & "'"

pr3 = DataTables("编号列表3").Find(filter3)

If pr3 IsNot Nothing Then

dr("品种_长度编号") = pr3("品种_长度编号")

End If

dr("品种_ID") = dr("品种_杆径编号") & dr("品种_材质编号") & dr("品种_长度编号")

Case "品种_级别"

Dim dr As DataRow = e.DataRow

Dim pr4 As DataRow

Dim filter4 As String

filter4 = "品种_级别 = '" & dr("品种_级别") & "'"

pr4 = DataTables("编号列表4").Find(filter4)

If pr4 IsNot Nothing Then

dr("品种_级别编号") = pr4("品种_级别编号")

End If

dr("品种_ID") = dr("品种_杆径编号") & dr("品种_材质编号") & dr("品种_长度编号") & dr("品种_级别编号")

Case "品种_接箍"

Dim dr As DataRow = e.DataRow

Dim pr6 As DataRow

Dim filter6 As String

filter6 = "品种_接箍 = '" & dr("品种_接箍") & "'"

pr6 = DataTables("编号列表6").Find(filter6)

If pr6 IsNot Nothing Then

dr("品种_接箍编号") = pr6("品种_接箍编号")

End If

dr("品种_ID") = dr("品种_杆径编号") & dr("品种_材质编号") & dr("品种_长度编号") & dr("品种_级别编号") & dr("品种_接箍编号")

Case "品种_特殊要求"

Dim dr As DataRow = e.DataRow

Dim pr5 As DataRow

Dim filter5 As String

filter5 = "品种_特殊要求 = '" & dr("品种_特殊要求") & "'"

pr5 = DataTables("编号列表5").Find(filter5)

If pr5 IsNot Nothing Then

dr("品种_特殊要求编号") = pr5("品种_特殊要求编号")

End If

dr("品种_ID") = dr("品种_杆径编号") & dr("品种_材质编号") & dr("品种_长度编号") & dr("品种_级别编号") & dr("品种_接箍编号") & dr("品种_特殊要求编号")

End Select

在表属性中的DataRowAdding事件中代码如下：e.DataRow("序号") = e.DataTable.Compute("Max(序号)") + 1

合同录入窗口设计如图
图片点击可在新窗口打开查看

此主题相关图片如下：内部合同录入设计界面.bmp

窗口的Afterload事件编码如下：

Dim lbl As WinForm.Label

lbl = e.Form.Controls("Welcome")

lbl.Text = "今天是 " & format(Date.Today,"yyyy年MM月dd日") & ", 大地石油机械公司欢迎您 !"

Dim txtBox As WinForm.TextBox

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

txtBox.ReadOnly = BooleanEnum.True

txtBox = e.Form.Controls("生产数量栏")

txtBox.ReadOnly = BooleanEnum.True

txtBox = e.Form.Controls("客户新增要求录入栏")

txtBox.ReadOnly = BooleanEnum.True

Dim combobox As WinForm.ComboBox

ComboBox = e.Form.Controls("杆径栏")