学员问题：

老师，请问你如何使下拉框同类项只显示一条？

代码截图：

加入distinct 示例:

Private Sub 供应商ID_GotFocus()
mclsSC供应商ID.Init Combo:=Me!供应商ID, _
                    SearchField:="供应商名称", _
                    SQLSelect:="DISTINCT 供应商ID,供应商名称", _
                    SQLFROM:="入库物资ID查询", _
                    SQLWhere:="[分类编号]=[Forms]![frm入库单_Edit]![分类编号]", _
                    SQLORDERBY:="供应商ID"
End Sub