Dim dd As Date = e.Form.Controls("DateTimePicker4").Value
Dim y As Integer = dd.Year
Dim m As Integer = dd.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("财务汇总窗口_Table4").Filter = Filter
怎么把 DateTimePicker4 改为 年和月分开的啊
比如 把日期设置为 NumericComboBox1或者其他控件 ,然后一个输入年 一个输入月 点击查询 把输入年和月相同的 筛选出来,感谢 感谢
[此贴子已经被作者于2017/7/2 10:57:46编辑过]