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

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 = f.Filter &  "日期 <= #" & .Value & "#"
    End If
End With
f.DataTable = DataTables("员工日工资表") '指定数据接收表
f.DataCols = "日期,姓名,当天工资" '指定数据接收列
f.Fill() '填充数据

好好看看这一章：

http://www.foxtable.com/help/topics/1058.htm

实在搞不定，就做个简单的例子发上来。

来源表只能一个的，不过你可以分两次填充啊，例如：

Dim nms() As String = {"来源表1","来源表2"}
For Each nm As String In nms
    Dim f As New Filler
    f.SourceTable = DataTables(nm) '指定数据来源
    f.DataTable = DataTables("统计") '指定数据接收表
    f.Fill() '填充数据
Next