主题：[求助]数据筛选与复制问题

首先感谢老师的指点，可是这个条件判断这里我不会使用；还请老师帮助指点。

以下是我写的代码请指点：

If e.form.controls("DateTimePicker1").value = Nothing Then
    msgbox("请录入查询日期后再查询!")
Else
    Dim f As New Filler
    f.SourceTable = DataTables("日报表")     '指定数据来源表
    f.SourceCols = "工作单位名称,应接种人数,已接种人数_第一针,已接种人数_第二针,已接种人数_第三针,未接种人数,不能接种人数,备注,接收日期"     '指定数据来源列
    f.DataTable = DataTables("查询表")      '指定数据接收表
    f.DataCols = "工作单位名称,应接种人数,已接种人数_第一针,已接种人数_第二针,已接种人数_第三针,未接种人数,不能接种人数,备注,接收日期"       '指定数据接收列
    f.ExcludeExistValue = True            '排除接收表中已经存在的内容
    f.ExcludeNullValue = True         '排除空白值
    f.Filter =          '填充条件判断
    f.Distinct = True         '排除重复内容
    f.Append = True       '在接收数据表中增加新行用于接收数据
    f.Fill      '填充数据
End If