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 * Fr om {订单} Where " &
Filter, False)
能实现不?捣鼓了很久没成功,总是提示select语句不正确。
Dim bm As String = e.Form.Controls("ComboBox1").text
"bm"如何装到{}里?
[此贴子已经被作者于2019/7/11 10:42:28编辑过]