先添加一个文本框，再在文本框下面添加一个列表框，如下图：

1. 文本框 txtMatid 的 InteractiveChange 事件代码：
if !empty(THIS.text)
    seek allt(this.text) order matid in material
    THIS.Parent.lstMat.Value = material.matid
endif
2. 文本框 txtMatid 的 Valid 事件代码：
if !empty(THIS.Text) and THIS.Parent.lstMat.ListIndex > 0
    THIS.Value = THIS.Parent.lstMat.Value
endif
3. 列表框 lstMat 的 Click 事件代码：
THIS.Parent.txtMatid.Value = THIS.Value

差不多，悬浮显示的内容来自查询结果

正解

飞狐版主的解答非常准确。谢谢！！

使用combobox控件, 取DISPLAYVALUE或TEXT值

在论坛里可以找到实例，搜索一下。