主题：如何提示当日期不在范围内？

Dim dv As DataRow
Dim de As DataRow
dv = DataTables("收购").find("日期 >= #" & Vars("vdate") & "#")
de = DataTables("收购").find("日期 <= #" & Vars("edate") & "#")
If dv IsNot Nothing And de IsNot Nothing Then
    vars("Suma") =  DataTables("收购").Compute("Sum(头数)", "[日期] >= #" & Vars("vdate") & "# and [日期] <= #" & Vars("edate") & "#")
    vars("Sumb") =  DataTables("收购").Compute("Sum(重量)", "[日期] >= #" & Vars("vdate") & "# and [日期] <= #" & Vars("edate") & "#")
    vars("Sumc") =  DataTables("收购").Compute("Sum(收购金额)","[日期] >= #" & Vars("vdate") & "# and [日期] <= #" & Vars("edate") & "#")
    vars("Sumaa") =  DataTables("销售").Compute("Sum(份数)", "[日期] >= #" & Vars("vdate") & "# and [日期] <= #" & Vars("edate") & "#")
    vars("Sumbb") =  DataTables("销售").Compute("Sum(重量)", "[日期] >= #" & Vars("vdate") & "# and [日期] <= #" & Vars("edate") & "#")
    vars("Sumcc") =  DataTables("销售").Compute("Sum(金额)", "[日期] >= #" & Vars("vdate") & "# and [日期] <= #" & Vars("edate") & "#")
Else
    MessageBox.Show("超出日期范围!")
End If

肯用功，这样就行了！多谢！