Enter事件
Dim cmb As WinForm.ComboBox = e.Sendercmb.ComboList = DataTables("表A").GetComboListString("规格", "型号 = '" & str & "'")