vb+access编程问题

青蛙道人

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. 
   
7. ElseIf Trim(Combo1.Text) = "销售编号" Then
   
8.     If Text1.Text = "" Then
   
9.     MsgBox "销售编号不能为空"
   
10.     Else
    
11. txtsql = "select Det_id as 销售编号,ProdCode as 商品编号,QtySold as 销售数量,Invoice_NoD as 发票编号 from Invoice_Detail where Det_id='" & Trim(Text1.Text) & "'"
    
12. Call adodc(txtsql, Adodc1, DataGrid1)
    
13.    End If
    
14. ElseIf Trim(Combo1.Text) = "商品编号" Then
    
15.    If Text1.Text = "" Then
    
16.    MsgBox "商品编号不能为空"
    
17.    Else
    
18. txtsql = "select  Det_id as 销售编号,ProdCode as 商品编号,QtySold  as 销售数量,Invoice_NoD as 发票编号 from Invoice_Detail where ProdCode='" & Trim(Text1.Text) & "'"
    
19. Call adodc(txtsql, Adodc1, DataGrid1)
    
20.    End If
    
21. End If
    
22. Text1.Text = ""
    
23. End Sub

复制代码

运行程序时弹出错误：“标准表达式中数据类型不匹配”代码如上

夜神月

问题应该出在 adodc(txtsql, Adodc1, DataGrid1)这个函数的调用上，你在核查一下这个函数的定义

青蛙道人

恩，检查出来了，后面两个控件没写属性导致报错。