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

一个combobox1

一个TextBox16

combobox1 的事件：

ENTER: (这里正常)

Dim cmb As WinForm.ComboBox = e.Sender

cmb.ComboList = DataTables("客户主表").GetComboListString("简称", "分管人='" & _UserName & "'")

valuechanged:

Dim a As String

Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox1")

Dim dr As DataRow

a = cm.SelectedItem

dr = DataTables("客户主表").Find("简称='" & a & "'")

MessageBox.show(a)

If dr IsNot Nothing Then

Dim s As WinForm.TextBox = e.Form.Controls("TextBox16")

s.Value = dr("客户ID")

End If

红色的代码部分去掉后没反应，，，加上后正常执行

主题：combobox valuechanged事件问题