标准表达式中数据类型不匹配

zhufree

设 送货单号 为文本型时就会出现图1的错误。
但更改 送货单号 为数值型时不会出现错误。

定义 me!订单id 为 string类型也无法解决此问题。
不知道该如何定义了，希望能得到坛友们的帮助，谢谢

sgrshh29

"select ..... from 送货明细表 where 送货单号= '" & me.送货单号 & "'"

daisy2808

我也遇到同样的问题，但是还没解决，大家帮帮忙吧。
sql = "SELECT SUM(4),SUM(5),SUM(6),SUM(7),SUM(8),SUM(9),SUM(10),SUM(11),SUM(12),SUM(1),SUM(2),SUM(3) FROM [Sheet1$] WHERE 成本中心 = 4500 "
sql = sql + " AND  资产 = '" & rsX.Fields.Item(0) & "'"

zhufree

'" & rsX.Fields.Item(0) & "'"
用单引号试试呢

daisy2808

具体的说是这样的，
sql = "SELECT SUM(4),SUM(5),SUM(6),SUM(7),SUM(8),SUM(9),SUM(10),SUM(11),SUM(12),SUM(1),SUM(2),SUM(3) FROM [Sheet1$] WHERE 成本中心 = 4500 and 固变区分='AB' and CODE = 'C705AB' "
这样会报错，而把SQL改成
sql = "SELECT SUM(4),SUM(5),SUM(6),SUM(7),SUM(8),SUM(9),SUM(10),SUM(11),SUM(12),SUM(1),SUM(2),SUM(3) FROM [Sheet1$] WHERE 成本中心 = 4500 and 固变区分='AB' and CODE = '733045' "
就不会报错。

daisy2808

zhufree,改成单引号报错信息就成，至少一个参数没有被指定值。
代码具体如下：
For m = 0 To UBound(dept)
                        sql = "SELECT SUM(4),SUM(5),SUM(6),SUM(7),SUM(8),SUM(9),SUM(10),SUM(11),SUM(12),SUM(1),SUM(2),SUM(3) FROM [Sheet1$] WHERE 成本中心 = "
                        sqlX = "SELECT 科目 FROM [X项目$] WHERE 固变区分 = '" '
                        
                        sql = sql + sourcecostcenter + " AND 固变区分 = '" + dept(m) + "'"
                        sqlX = sqlX + dept(m) + "'"
                        Debug.Print sqlX
                        rsX.Open sqlX, cnn, adOpenKeyset, adLockBatchOptimistic
                        
                        If rsX.RecordCount <> 0 Then
                            sql = sql + " AND  资产 <> '" & rsX.Fields.Item(0) & "'"
                            'sql = sql + " AND  资产 <> '" + CStr(rsX.Fields.Item(0)) + "'"
                            'sql = sql + "AND iif(isnull(科目),'',CStr(科目)) <> '" + CStr(rsX.Fields.Item(0)) + "'"
                            'Debug.Print sql
                        End If
                        
                        rsX.Close
                        Set rsX = Nothing
                        
                        rs.Open sql, cnn, adOpenKeyset, adLockBatchOptimistic
                        
                        a4 = a4 + IIf(IsNull(rs.Fields.Item(0)), 0, rs.Fields.Item(0))
                        a5 = a5 + IIf(IsNull(rs.Fields.Item(1)), 0, rs.Fields.Item(1))
                        a6 = a6 + IIf(IsNull(rs.Fields.Item(2)), 0, rs.Fields.Item(2))
                        a7 = a7 + IIf(IsNull(rs.Fields.Item(3)), 0, rs.Fields.Item(3))
                        a8 = a8 + IIf(IsNull(rs.Fields.Item(4)), 0, rs.Fields.Item(4))
                        a9 = a9 + IIf(IsNull(rs.Fields.Item(5)), 0, rs.Fields.Item(5))
                        a10 = a10 + IIf(IsNull(rs.Fields.Item(6)), 0, rs.Fields.Item(6))
                        a11 = a11 + IIf(IsNull(rs.Fields.Item(7)), 0, rs.Fields.Item(7))
                        a12 = a12 + IIf(IsNull(rs.Fields.Item(8)), 0, rs.Fields.Item(8))
                        a1 = a1 + IIf(IsNull(rs.Fields.Item(9)), 0, rs.Fields.Item(9))
                        a2 = a2 + IIf(IsNull(rs.Fields.Item(10)), 0, rs.Fields.Item(10))
                        a3 = a3 + IIf(IsNull(rs.Fields.Item(11)), 0, rs.Fields.Item(11))
                        
                        rs.Close
                        Set rs = Nothing
                    Next

zhufree

CODE = '****'这一段有差别？

daisy2808

对，就只有这一段有差别。一个是纯数字，一个是有字符有数字。
很奇怪，怎么执行都不行。

james.wan

最后请上传附件

daisy2808

8FLASH为原始数据