- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- SQl的fill语句请教 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=38302)
-- 发布时间：2013/7/25 12:42:00
-- 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
-- 发布时间：2013/7/25 12:55:00
--
1、肯定是条件不符，否则不会没有数据，你可以上例子测试
2、
DataTables("客户信息").Fill("Select * From {客户信息} Where [客户代码] in ( select [客户代码] From {联系人信息} Where " & Filterlxr & ")" , "qiyundata" , False)