首先感谢老师的指点,可是这个条件判断这里我不会使用;还请老师帮助指点。
以下是我写的代码请指点:
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