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

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

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() '填充数据