类似
Dim dt As Date = Date.Today.AddDays(10)Dim count As Integer = DataTables("库存表").compute("count(有效期至)","有效期至 >= #" & date.today & "# and 有效期至 <= #" & dt & "#")msgbox(count)