专家坐堂-窗口录入问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口录入问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118729)

--  作者：jinhetian
--  发布时间：2018/5/9 16:36:00
--  窗口录入问题

此主题相关图片如下：1.jpg

此主题相关图片如下：2.jpg

您好！帮忙解决一下。谢谢！
现在输入生产编号，在生产日期和产品型号的文本框上显示所需的文本信息。但点击任何其他控件，已经显示的文本信息消失了。也不在记录表上录入。这是怎么回事？
产品编号textchanged事件的源代码是：
If e.sender.text.length > 3 Then
If e.sender.text(0) = "0" And e.sender.text(1)="1" Then
e.Form.controls("TextBox4").text = "J18A1"
End If
If e.sender.text(0) ="0" And e.sender.text(1)="2" Then
e.Form.controls("TextBox4").text = "J18A2"
End If
If e.sender.text(0) = "0" And e.sender.text(1)="3" Then

e.Form.controls("TextBox4").text = "J18C"
End If
If e.sender.text(0) = "0" And e.sender.text(1)="4" Then
e.Form.controls("TextBox4").text = "J18B"
End If
If e.sender.text(0) ="0" And e.sender.text(1)="5" Then

e.Form.controls("TextBox4").text = "J48A"
End If
If e.sender.text(0) = "0" And e.sender.text(1)="6" Then

e.Form.controls("TextBox4").text = "J48B"
End If
If e.sender.text(0) = "1" And e.sender.text(1)="1" Then
e.Form.controls("TextBox4").text = "J18A3"
End If
If e.sender.text(0) ="1" And e.sender.text(1)="2" Then

e.Form.controls("TextBox4").text = "J18BX"
End If
If e.sender.text(0) = "1" And e.sender.text(1)="3" Then

e.Form.controls("TextBox4").text = "J58A"
End If
If e.sender.text(0) = "0" And e.sender.text(1)="7" Then
e.Form.controls("TextBox4").text = "SD608"
End If
If e.sender.text(0) ="0" And e.sender.text(1)="8" Then

e.Form.controls("TextBox4").text = "JC609"
End If
If e.sender.text(0) = "0" And e.sender.text(1)="9" Then

e.Form.controls("TextBox4").text = "NES809"
End If

If e.sender.text(0) = "1" And e.sender.text(1)="0" Then

e.Form.controls("TextBox4").text = "PC708"
End If
If e.sender.text(0) = "1" And e.sender.text(1)="4" Then
e.Form.controls("TextBox4").text = "PC708A"
End If
If e.sender.text(0) ="1" And e.sender.text(1)="5" Then

e.Form.controls("TextBox4").text = "PC708R"
End If
If e.sender.text(0) = "1" And e.sender.text(1)="6" Then

e.Form.controls("TextBox4").text = "DB1207"
End If
End If
If e.sender.text.length > 9 Then
e.Form.controls("TextBox1").text = e.sender.text.Substring(2,8)
End If

[此贴子已经被作者于2018/5/9 16:37:24编辑过]

--  作者：有点甜
--  发布时间：2018/5/9 16:48:00
--

参考

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=118668&authorid=0&page=0&star=2

--  作者：jinhetian
--  发布时间：2018/5/10 9:06:00
--
谢谢老师，问题已经解决。

--  作者：jinhetian
--  发布时间：2018/5/10 12:08:00
--

程序运行后出现错误对话框，关闭后程序能正常运行。
下面是对话框的内容：
.NET Framework 版本：2.0.50727.8762
Foxtable 版本：2018.3.9.1
错误所在事件：窗口,维修产品登记表,TextBox3,TextChanged
详细错误信息：
未将对象引用设置到对象的实例。

--  作者：有点甜
--  发布时间：2018/5/10 12:24:00
--

加入msgbox调试 http://www.foxtable.com/webhelp/scr/1485.htm

--  作者：jinhetian
--  发布时间：2018/5/11 14:09:00
--
老师，错误对话框是执行了红色区域的代码后出现的。
If e.sender.text.length > 3 Then
MessageBox.Show(1)
If e.sender.text(0) = "0" And e.sender.text(1)="1" Then
MessageBox.Show(2)
e.Form.controls("TextBox4").text = "J18A1"
MessageBox.Show(3)
e.Form.controls("TextBox4").WriteValue

End If

--  作者：有点甜
--  发布时间：2018/5/11 14:36:00
--
回复6楼，那就应该是你 datacolchanged 事件代码有错导致的。你删除事件代码看看。

--  作者：jinhetian
--  发布时间：2018/5/11 14:47:00
--

老师帮我看一下，我真的无从下手，不知道怎么改？
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:质量手册.table

[此贴子已经被作者于2018/5/11 14:50:03编辑过]

--  作者：有点甜
--  发布时间：2018/5/11 16:05:00
--

修改代码

static flag As Boolean = False
If e.sender.text.length > 3 AndAlso flag Then

    If e.sender.text(0) = "0" And e.sender.text(1)="1" Then
        e.Form.controls("TextBox4").text = "J18A1"
        e.Form.controls("TextBox4").WriteValue
    End If
    If e.sender.text(0) ="0" And e.sender.text(1)="2" Then
        e.Form.controls("TextBox4").text = "J18A2"
        e.Form.controls("TextBox4").WriteValue
    End If
    If e.sender.text(0) = "0" And e.sender.text(1)="3" Then

        e.Form.controls("TextBox4").text = "J18C"
        e.Form.controls("TextBox4").WriteValue
    End If
    If e.sender.text(0) = "0" And e.sender.text(1)="4" Then
        e.Form.controls("TextBox4").text = "J18B"
        e.Form.controls("TextBox4").WriteValue
    End If
    If e.sender.text(0) ="0" And e.sender.text(1)="5" Then

        e.Form.controls("TextBox4").text = "J48A"
        e.Form.controls("TextBox4").WriteValue
    End If
    If e.sender.text(0) = "0" And e.sender.text(1)="6" Then

        e.Form.controls("TextBox4").text = "J48B"
        e.Form.controls("TextBox4").WriteValue
    End If
    If e.sender.text(0) = "1" And e.sender.text(1)="1" Then
        e.Form.controls("TextBox4").text = "J18A3"
        e.Form.controls("TextBox4").WriteValue
    End If
    If e.sender.text(0) ="1" And e.sender.text(1)="2" Then

        e.Form.controls("TextBox4").text = "J18BX"
        e.Form.controls("TextBox4").WriteValue
    End If
    If e.sender.text(0) = "1" And e.sender.text(1)="3" Then

        e.Form.controls("TextBox4").text = "J58A"
        e.Form.controls("TextBox4").WriteValue
    End If
    If e.sender.text(0) = "0" And e.sender.text(1)="7" Then
        e.Form.controls("TextBox4").text = "SD608"
        \'        e.Form.controls("TextBox4").WriteValue
    End If
    If e.sender.text(0) ="0" And e.sender.text(1)="8" Then

        e.Form.controls("TextBox4").text = "JC609"
        e.Form.controls("TextBox4").WriteValue
    End If
    If e.sender.text(0) = "0" And e.sender.text(1)="9" Then

        e.Form.controls("TextBox4").text = "NES809"
        e.Form.controls("TextBox4").WriteValue
    End If

    If e.sender.text(0) = "1" And e.sender.text(1)="0" Then

        e.Form.controls("TextBox4").text = "PC708"
        e.Form.controls("TextBox4").WriteValue
    End If
    If e.sender.text(0) = "1" And e.sender.text(1)="4" Then
        e.Form.controls("TextBox4").text = "PC708A"
        e.Form.controls("TextBox4").WriteValue
    End If
    If e.sender.text(0) ="1" And e.sender.text(1)="5" Then

        e.Form.controls("TextBox4").text = "PC708R"
        e.Form.controls("TextBox4").WriteValue
    End If
    If e.sender.text(0) = "1" And e.sender.text(1)="6" Then

        e.Form.controls("TextBox4").text = "DB1207"
        e.Form.controls("TextBox4").WriteValue
    End If
End If
If e.sender.text.length > 9 AndAlso flag Then
    e.Form.controls("TextBox1").text = e.sender.text.Substring(2,8)
    e.Form.controls("TextBox1").WriteValue
End If
flag = True

--  作者：jinhetian
--  发布时间：2018/5/14 9:19:00
--
有点甜老师，问题解决了。有点甜老师有问必答！非常感谢！！