在组合框中,设置了唯一值,在没有加入模糊自动过滤代码前显示唯一值,加入了之后就全部显示出来,不知道是代码问题还是其他地方问题,谢谢!
在窗体加载代码加入如下代码:
Private mclsSC往来单位名称 As New SearchComboBox '定义模糊查询类变量
再在下面这个代码下加入以下代码:
Private Sub Form_Load()
On Error GoTo ErrorHandler
Dim strSQL As String
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim rstTmp As DAO.Recordset
mclsSC往来单位名称.Init Combo:=Me.往来单位名称, _
SearchField:="往来单位名称 & 联系人", _
SQLSELECT:="往来单位名称,往来单位名称", _
SQLFROM:="往来单位信息表", _
SQLWhere:="已停用=0", _ (此句一般不用)
SQLORDERBY:="往来单位名称"