主题：[求助]明细表中有日期，如何筛选出起始日期和结束日期范围内的主表数据

Dim Filter As String

With e.Form.Controls("StartDate")

    If .Value IsNot Nothing Then

        If Filter >"" Then

            Filter = Filter & " And "

        End If

        Filter = Filter & "日期 >= #" & .Value & "#"

    End If

End With

With e.Form.Controls("EndDate")

    If .Value IsNot Nothing Then

        If Filter >"" Then

            Filter = Filter & " And "

        End If

        Filter = Filter & "日期 <= #" & .Value & "#"

    End If

End With

    Dim s As String = DataTables("明细表").GetComboListString("订单编号",Filter)

    s = s.Replace("|","','")

    Tables("订单").Filter = "订单编号 in('" & s & "')"

End If