- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]一开始用得挺好，然后就出了问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=86209)
-- 发布时间：2016/6/13 9:58:00
-- [求助]一开始用得挺好，然后就出了问题
专家您好！我在窗口中设计了一个控件“合同号栏”
此主题相关图片如下：未命名.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
此主题相关图片如下：未命名1.bmp重新输入有时候提示错误，有时候不再提示。
请问专家上述编码错在哪里？
-- 发布时间：2016/6/13 10:06:00
--
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
-- 发布时间：2016/6/13 10:52:00
--
修改后，为什么输入的数据在鼠标离开的时候在窗口中的控件内消失了，表中的数据还在
-- 发布时间：2016/6/13 11:03:00
--
做个实例发上来。
-- 发布时间：2016/6/13 14:06:00
--
我的空表如图
此主题相关图片如下：空表.bmp
我的录入界面
此主题相关图片如下：录入界面.bmp
，
此主题相关图片如下：录入界面.bmp，点击“录入新合同”后如图：
此主题相关图片如下：录入界面.bmp
此主题相关图片如下：录入界面.bmp录入“2016-001-0”时正常，当录入最后一个数字“1”时，控件内的全部数字消失，但表中新增一行，“2016-001-01”内容还在
-- 发布时间：2016/6/13 14:07:00
--
此主题相关图片如下：录入.bmp
-- 发布时间：2016/6/13 14:10:00
--
这是表中的内容
此主题相关图片如下：录入1.bmp
-- 发布时间：2016/6/13 14:32:00
--
贴出你TextChanged事件代码。
或者做个foxtable实例测试。
-- 发布时间：2016/6/13 14:50:00
--
窗口和控件都没有TextChanged事件代码。
-- 发布时间：2016/6/13 14:50:00
--
上传实例。