Dim khmc As WinForm.TextBox = e.Form.Controls("客户名称")
Dim khxh As WinForm.TextBox = e.Form.Controls("客户型号")
Dim rq1 As WinForm.DateTimePicker = e.Form.Controls("日期1") \'As  Date
Dim rq2 As WinForm.DateTimePicker = e.Form.Controls("日期2") \'As  Date
Dim Filter As String

Filter ="[客户名称] like \'%" & khmc.text & "%\'"
Filter ="[客户型号] like \'%" & khmc.text & "%\'"
Filter= "[下单日期] >= #" & rq1.text & "# And [下单日期] <= #" & rq2.text & "#"

DataTables("市场").LoadFilter = Filter
DataTables("市场").Load()

怎么把红色的筛选条件合在一起？单个筛选都成立，我想合并筛选，怎么都合不成？

另外帮忙加个判断条件，假如是空值的话，就不参与筛选。

谢谢！

老规矩，上例子。

对账做好了，你看一下。

Dim Filter As String
With e.Form.Controls("cmbProduct")
    If .Value IsNot Nothing Then
        Filter = "产品 = \'" & .Value & "\'"
    End If
End With
With e.Form.Controls("cmbCustomer")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "客户 = \'" & .Value & "\'"
    End If
End With
... ... ...

只是针对Tables，我这是数据源DataTables，共同筛选是不一样的。

不要误会了，我是不会转变，不是说例子没用。道歉。

例子已经上传了，谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:再谈筛选.rar