问题描述
- 过程声明与同名事件或过程的描述不相符
-
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 = TrueEnd Select
Exit Sub
errdo:
MsgBox Error(Err), vbCritical, "多项条件查询"
Resume Next
End Sub
解决方案
cont在哪里定义的,什么类型
rscusname.Fields(0).Value 是数字类型吧,用CStr转换下。
贴出错误发生的行才好帮你。
解决方案二:
就是第一句出现了问题
解决方案三:
CmbSearItem是什么类型的控件?
解决方案四:
combobox控件
时间: 2024-07-30 22:53:09