主题：SQl的fill语句请教

写了2个个语句，出现问题：第一个是：

Dim tel As String
tel = Tables("邮件平台_Table2").Current("电子邮箱")
tel= tel.Trim()
Tables("邮件平台_Table1").Fill("Select * From {邮件列队} where [发送日期] Is Not null And [电子邮箱] = '" & Tel & "'" ,"qiyundata" ,True)

 

红色部分弹屏为：select * from {邮件列队} where [发送日期] is not null and [电子邮箱] = 'he_hui772@163.com' 但在代码中fill的结果为空，而直接用分红色这句在杂项--工具--SQL中是可以查到一行记录的

 

第二个是：

DataTables("客户信息").Fill("Select * From {客户信息} Where [客户代码] in ( select [客户代码] From {联系人信息} Where " & Filterlxr , "qiyundata" , False)

红色部分弹屏出来为：select [客户代码] from {联系人信息} where [移动号码] like ‘%138%’

 

但结果报错：

 

 

此主题相关图片如下：捕获.png

1、肯定是条件不符，否则不会没有数据，你可以上例子测试
 
2、
 
DataTables("客户信息").Fill("Select * From {客户信息} Where [客户代码] in ( select [客户代码] From {联系人信息} Where " & Filterlxr & ")" , "qiyundata" , False)