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

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") & "#")

限制当日期不在范围内时如何用Messagebox提示？

Dim dr As DataTable = DataTables("收购")
If dr("日期") < #" & Vars("vdate") & "# or dr("日期") > #" & Vars("edate") & "#")  Then
    MessageBox.Show("超出日期范围!")
End If

为什么不行？

Vars("vdate") 起始日期

Vars("edate") 终止日期

如果收购的日期不在输入的起始日期或终止日期，就提示错误。如何做到？

class 'datatable' cannot be indexed because it has no default property.

出现这样的错误。

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

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