怪乖怪怪 2016-03-01 10:00 采纳率: 0%
浏览 1816

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

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条回答 默认 最新

  • threenewbee 2016-03-01 12:25
    关注

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

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

    评论

报告相同问题?

悬赏问题

  • ¥15 使用rabbitMQ 消息队列作为url源进行多线程爬取时,总有几个url没有处理的问题。
  • ¥85 maple软件,solve求反函数,出现rootof怎么办?
  • ¥15 求chat4.0解答一道线性规划题,用lingo编程运行,第一问要求写出数学模型和lingo语言编程模型,第二问第三问解答就行,我的ddl要到了谁来求了
  • ¥15 Ubuntu在安装序列比对软件STAR时出现报错如何解决
  • ¥50 树莓派安卓APK系统签名
  • ¥15 maple软件,用solve求反函数出现rootof,怎么办?
  • ¥65 汇编语言除法溢出问题
  • ¥15 Visual Studio问题
  • ¥20 求一个html代码,有偿
  • ¥100 关于使用MATLAB中copularnd函数的问题