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

Henry D. Sy

用 in 不好吗？

Henry D. Sy

把例子传上来

Henry D. Sy

07的帮不了您

Henry D. Sy

日期数组能直接在窗体中写
什么意思？？

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#