Dim y As String =int( Forms("窗口1").Controls("ComboBox1").text) '将text改成value也一样没有更新
Dim dt1 As New Date(y, 1, 1) Dim dt2 As New Date(y, 12, 31) Dim Filter As String Filter = "最新结转日期 >= #" & dt1 & "# And 最新结转日期 <= #" & dt2 & "#" Tables("下拉窗口_Table1").filter=Filter