Dim StartDate,EndDate As Date StartDate = 窗口开始日期值 EndDate = 窗口结束日期值 If MainTable.Name = "调用" Dim f As New Filler f.SourceTable = DataTables("订单") f.SourceCols = "产品,单价,折扣,数量,日期,已付款,编号,型号" f.DataTable = DataTables("调用") f.DataCols = "产品,单价,折扣,数量,日期,已付款,编号,型号" f.Filter = "[日期] >= #" & StartDate & "# And [日期] <= #" & EndDate & "#" DataTables("调用").DataRows.Clear() '清除原来的数据 f.Fill() '填充数据 End If