TextChanged 事件
e.sender.Items.Cleare.sender.ComboList = DataTables("表A").GetComboListString("型号","型号 like '*" & e.sender.Text & "*'")e.sender.OpenDropDown
e.sender.Items.Clear
e.sender.ComboList = DataTables("表A").GetComboListString("型号","型号 like '*" & e.sender.Text & "*'")
e.sender.OpenDropDown