Private Sub CmbSearItem_Click()
Dim rscusname As ADODB.Recordset
Dim sql As String
On Error GoTo errdo
Set rscusname = New ADODB.Recordset
sql = "select distinct 商品编号 from 销售"
rscusname.Open sql, cont, adOpenKeyset, adLockOptimistic
Select Case CmbSearItem.Text
Case "店铺编号"
CmbFindvalue.Visible = True
TxtFindvalue.Visible = False
CmbFindvalue.Clear
CmbFindvalue.AddItem "d001"
CmbFindvalue.AddItem "d002"
CmbFindvalue.AddItem "d003"
CmbFindvalue.ListIndex = 0
Case "商品编号"
CmbFindvalue.Visible = True
TxtFindvalue.Visible = False
CmbFindvalue.Clear
Do While Not rscusname.EOF
CmbFindvalue.AddItem rscusname.Fields(0).Value
rscusname.MoveNext
Loop
Set rscusname = Nothing
CmbFindvalue.ListIndex = 0
Case Else
CmbFindvalue.Visible = False
TxtFindvalue.Visible = True
End Select
Exit Sub
errdo:
MsgBox Error(Err), vbCritical, "多项条件查询"
Resume Next
End Sub