空灵学院

 找回密码
 立即注册

扫一扫,访问微社区

搜索
查看: 2698|回复: 2

vb+access编程问题

[复制链接]

9

主题

19

帖子

53

积分

注册会员

Rank: 2

积分
53
发表于 2014-1-29 16:51:54 | 显示全部楼层 |阅读模式
  1. Private Sub Command1_Click()
  2. Dim mrc As ADODB.Recordset
  3. Dim txtsql As String
  4. If Trim(Combo1.Text) = "" Then
  5. MsgBox "请选择查询方式"

  6. ElseIf Trim(Combo1.Text) = "销售编号" Then
  7.     If Text1.Text = "" Then
  8.     MsgBox "销售编号不能为空"
  9.     Else
  10. txtsql = "select Det_id as 销售编号,ProdCode as 商品编号,QtySold as 销售数量,Invoice_NoD as 发票编号 from Invoice_Detail where Det_id='" & Trim(Text1.Text) & "'"
  11. Call adodc(txtsql, Adodc1, DataGrid1)
  12.    End If
  13. ElseIf Trim(Combo1.Text) = "商品编号" Then
  14.    If Text1.Text = "" Then
  15.    MsgBox "商品编号不能为空"
  16.    Else
  17. txtsql = "select  Det_id as 销售编号,ProdCode as 商品编号,QtySold  as 销售数量,Invoice_NoD as 发票编号 from Invoice_Detail where ProdCode='" & Trim(Text1.Text) & "'"
  18. Call adodc(txtsql, Adodc1, DataGrid1)
  19.    End If
  20. End If
  21. Text1.Text = ""
  22. End Sub
复制代码
运行程序时弹出错误:“标准表达式中数据类型不匹配”代码如上
回复

使用道具 举报

1137

主题

1761

帖子

7558

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
7558
发表于 2014-1-29 19:48:52 | 显示全部楼层
问题应该出在 adodc(txtsql, Adodc1, DataGrid1)这个函数的调用上,你在核查一下这个函数的定义
回复 支持 反对

使用道具 举报

9

主题

19

帖子

53

积分

注册会员

Rank: 2

积分
53
 楼主| 发表于 2014-1-30 08:15:22 | 显示全部楼层
恩,检查出来了,后面两个控件没写属性导致报错。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|空灵学院 ( 11033542 )

GMT+8, 2024-7-15 06:46 , Processed in 0.028471 second(s), 25 queries .

Powered by Discuz! X3.4

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表