已经窗口AfterLoad事件代码:
Dim ks As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim zd As WinForm.ComboBox = e.Form.Controls("ComboBox4")
ks.ComboList = DataTables("存档数据").GetComboListString("住院科室")
zd.ComboList = DataTables("存档数据").GetComboListString("家庭住址")
已有窗口
此主题相关图片如下:无标题.png

需求:在窗口ComboBox控件中录入“斗”字,若其相关包含斗字的所有项目选项都会自动显示出来供选择录入。