主题：[求助]根据数据填充时，只有一个时间有效。

对编码几乎不理解，请教如何修改。

Dim f As New Filler
f.SourceTable = DataTables("员工工资明细表") '指定数据来源
f.SourceCols = "日期,姓名,工资" '指定数据来源列
With e.Form.Controls("DateTimePicker1")
    If .Value IsNot Nothing Then
        If f.Filter >"" Then
            f.Filter = f.Filter & " And "
        End If
        f.Filter =  "日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("DateTimePicker2")
    If .Value IsNot Nothing Then
        If f.Filter >"" Then
            f.Filter = f.Filter & " And "
        End If
        f.Filter =  "日期 <= #" & .Value & "#"
    End If
End With
f.DataTable = DataTables("员工日工资表") '指定数据接收表
f.DataCols = "日期,姓名,当天工资" '指定数据接收列
f.Fill() '填充数据

这里如何像 筛选窗口中那样定义组合成多种条件的。这一句只是解决了2个条件的。

这是设计查询窗口窗口时多个条件的代码设置。

我用Filler填充时，定义这些条件时，应怎样编写代码。试了半天，不行。代码很多理解太差。

现阶段，只能边比着葫芦画瓢。

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
With e.Form.Controls("cmbEmployee")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "雇员 = '" & .Value & "'"
    End If
End With
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
If e.Form.Controls("rdoYifu").Checked = True ' 如果付款状态选择了"已付"
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "已付款 = True"
End If
If e.Form.Controls("rdoWeifu").Checked = True ' 如果付款状态选择了"未付"
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "已付款 = False Or 已付款 Is Null"
End If
If Filter > "" Then
    Tables("订单").Filter = Filter
End If

用Filler填充的时候，   SourceTable属性指定数据源的时候，能否指定多个，如何，表示。

如：filler.SourceTable = DataTables("员工工资明细表")

      filler.SourceTable = DataTables("员工工资")