Dim dt As Date = Date.Today
Dim count As Integer = DataTables("表A").Compute("count(到期日期)", "到期日期 >= #" & dt & "# And 到期日期 <= #" & dt.AddDays(20) & "#")
msgbox(count)
加好友 
发短信
Post By：2016/4/12 18:00:00 [只看该作者]
