2 qq 33069743 qq_33069743 于 2016.03.01 18:00 提问

过程声明与同名事件或过程的描述不相符
vb

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

4个回答

caozhy
caozhy   Ds   Rxr 2016.03.01 20:25

cont在哪里定义的,什么类型
rscusname.Fields(0).Value 是数字类型吧,用CStr转换下。

贴出错误发生的行才好帮你。

qq_33069743
qq_33069743   2016.03.01 21:48

就是第一句出现了问题

caozhy
caozhy   Ds   Rxr 2016.03.01 22:07

CmbSearItem是什么类型的控件?

qq_33069743
qq_33069743   2016.03.02 15:26

combobox控件

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!