主题：查询相关

做一个查询面板   包括 选定两个时间段   可以查询这两个时间段内所有的信息内容  该怎么做呢

这是什么意思
此主题相关图片如下：未命名.jpg

Dim mdd As WinForm.ComboBox = e.Form.Controls("目的地")
Dim sjr As WinForm.ComboBox = e.Form.Controls("收件人")
Dim qsrq As WinForm.DateTimePicker = e.Form.Controls("起始日期")
Dim zzrq As WinForm.DateTimePicker = e.Form.Controls("终止日期")
Dim ydh As WinForm.TextBox = e.Form.Controls("运单号")
Dim njm As WinForm.TextBox = e.Form.Controls("内件名")
Tables("快递信息").Filter=" 目的地 =  '" & mdd.text & " ' And 收件人 = '" & sjr.text & " ' and 起始日期 >=  ' # " & qsrq .Value & " #  ' and 终止日期 <= '# " & zzrq.value & "# ' and 运单号 like ' * " ydh.text " * ' and 内件名 like '* " njm.Text " * ' "

like 查询语句    如果一个数据是123456789   那么用like查询的时候必须输入 12 、123 、456这样连续起来  而不能4675这样查询？

Dim Filter As String
With e.Form.Controls("目的地")
    If .Value IsNot Nothing Then
        Filter = Filter & "收件_目的地= '" & .value & "'"
    End If
End With
With e.Form.Controls("收件人")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "收件_姓名 = '" & .Value & "'"
    End If
End With

With e.Form.Controls("起始日期")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "寄件_日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("终止日期")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "寄件_日期 <= #" & .Value & "#"
    End If
End With
With e.Form.Controls("内件名")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "寄件_内件名 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("运单号")
If .Value IsNot Nothing Then
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "快递单号  like'*" & .text & "*'"
End If
End With
If Filter > "" Then
    Tables("快递信息").Filter = Filter
End If

 

 

 

 

 

为什么  内件名组合框没有内容出现呢

此主题相关图片如下：未命名.jpg

当选择目的地之后 收件人下拉框内会自动出现有关内容  大内件名下拉框内却不出现