查询窗口_产品_Enter
Dim fhdw As WinForm.ComboBox = e.Form.Controls("产品")
If fhdw.text <> "产品" Or fhdw.text <> "" Then
fhdw.ComboList = DataTables("订单").GetComboListString("产品","产品 like '*" & fhdw.text & "*'")
Else
fhdw.ComboList = DataTables("订单").GetComboListString("产品")
End If
想实现在组合框中输入部分字符后,组合框能自动显示相关的内容,以达到“输入助手”的Ctrl+Enter功能