Dim AQueryDef As QueryDef
Dim mydb As ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim SQL As String
Dim Str As String
Set mydb = CurrentProject.Connection
SQL = "SELECT * from Tb_计划_主表 where 投入顺序>= " & Me.投入顺序 & ""
Rs.Open SQL, mydb, 3, 3
CurrentDb.QueryDefs.Refresh
Set AQueryDef = CurrentDb.QueryDefs("查询1")
Str = "between #" & Rs!投入日 & "# and #" & Rs!完成日 & "#"
AQueryDef.SQL = "SELECT Count(是否休息) AS 天数, 日期, 是否休息 FROM Tb_工厂日历 WHERE 日期 in (" & Str & ") GROUP BY 日期, 是否休息"
使用上面这段代码，运行到上面这句话，出现了如图错误，请帮我看看是什么问题。谢谢！
[attach]49578[/attach]作者: Henry D. Sy 时间: 2012-7-5 16:27
where 日期 " & str & " group～～～作者: kent_73 时间: 2012-7-5 16:38
原来多加了in()
谢谢了作者: roych 时间: 2012-7-5 20:15
In是不能这样用滴。应该是： In ("参数1","参数2","参数3",……,"参数N")