主题：[求助]刚才发的忘记图片了，大家再帮我看看吧

Dim filter As String

Dim dtp1 As Date

Dim dtp2 As Date

Dim cmb As String

dtp1 = e.Form. Controls("起始日期").Value

dtp2 = e.Form. Controls("结束日期").Value

cmb = e.Form. Controls("档案类型").text

If e.Form. Controls("起始日期").Value is Nothing

    Messagebox.show("请输入起始日期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Return

Else If e.Form. Controls("结束日期").Value is Nothing

    Messagebox.show("请输入结束日期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Return

Else If e.Form. Controls("档案类型").text = ""

    Messagebox.show("请输入档案类型!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Return

End If

DataTables("档案明细查询_Table1").Fill("Select * From {档案管理明细} Where 归档日期 >= #" & dtp1 & "#  And 归档日期 <= #" & dtp2 & "# And 档案类型 = '" & cmb & "' ","sqlserver",True)