您好！帮忙解决一下。谢谢！
现在输入生产编号，在生产日期和产品型号的文本框上显示所需的文本信息。但点击任何其他控件，已经显示的文本信息消失了。也不在记录表上录入。这是怎么回事？
产品编号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
加好友 
发短信
Post By：2018/5/9 16:36:00 [显示全部帖子]
此主题相关图片如下：1.jpg
