[求助]like值来自于数组,该如何写这样的查询?

Henry D. Sy

没有测试，你自己试试
把查询名字更改为 Q
Dim Qdf As DAO.QueryDef
    Dim sSQL As String
    Dim sWhere As String
    Dim DateArray() As Date
    Dim i As Integer
    If IsNull(Me.日期2) Then
        Exit Sub
    End If
    DateArray = Split(Me.日期2, ",")
    For i = 0 To UBound(DateArray)
        sWhere = sWhere & "#" & DateArray(i) & "#,"
    Next
    sSQL = "select * from 订单明细 where 打印日期 in (" & sWhere & ")"
    Set Qdf = CurrentDb.QueryDefs("Q")
    Qdf.SQL = sSQL
    Qdf.Close
    Set sqf = Nothing
    DoCmd.OpenQuery "Q"

Henry D. Sy

你是这样输入的吗？#2009-09-10#,#2009-09-15#

g7235723

是的.
我试过了,稍微改了下,您那段程序可行...
知道了另一种查询的方法..
谢谢

g7235723

问题似乎在 IN()函数,括号里面是文本没问题,但如果是变量的话似乎就出错了.

g7235723

这样产生的"Q"该如何更新啊?
我每次要关闭一下"Q"再执行那段代码才能更新.