非绑定组合框combox,设置记录集。
方法一:
Dim rstUser As Object
Set rstUser = OpenADORecordset("Select Sys_Users.Nickname FROM Sys_Users", adLockReadOnly)
Set Me.经办人.Recordset = rstUser
Set Me.制单人.Recordset = rstUser
方法二:
Private mclsSC供应商ID As New SearchComboBox '声明一个组合框动态筛选类并将其实例化
mclsSC供应商ID.Init Combo:=Me.供应商ID, _
SearchField:="供应商名称 & 拼音码", _
SQLSelect:="供应商ID, 供应商名称, 拼音码, 供应商类别", _
SQLFROM:="供应商信息表", _
SQLWhere:="已停用=0", _
SQLORDERBY:="拼音码"