Dim
y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New
Date(y, m, 1)
Dim dt2 As New
Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
Dim Filter As String
Filter =
"日期 >= #"
&
dt1
&
"# And
日期 <= #"
&
dt2
&
"#"
Tables("窗口1_Table1").Fill("Select * F rom {订单} Where "
& Filter, False)
上述语句中fill中的select语句为什么要这样写"Select * F rom {订单} Where " & Filter 而不是这样写"Select * F rom {订单} Where Filter "
加好友 
发短信
Post By：2018/8/3 22:22:00 [只看该作者]
