Textchanged事件，离开焦点后不能自动写入。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我在TextBox1的Textchanged事件里写入：

Dim dt As DataTable = DataTables("库管信息表")

Dim fdr As DataRow = dt.Find("编号 = '" & e.Sender.Text & "'")

If fdr IsNot Nothing Then

e.Form.Controls("ComboBox1").text = fdr("名称")

e.Form.Controls("ComboBox2").text = fdr("类型")

e.Form.Controls("ComboBox4").text = fdr("规格型号")

Else

e.Form.Controls("ComboBox1").text = ""

e.Form.Controls("ComboBox2").text = ""

e.Form.Controls("ComboBox4").text = ""

End If

当TextBox1写入有变化时，三个ComboBox都有赋值，可我离开焦点后，这三个ComboBox都全部变为空值了。请教各位老师。

主题：Textchanged事件，离开焦点后不能自动写入。