下边代码不知错在哪里'Dim txt1 As String = e.Form.Controls("TextBox5").Text
'Dim txt2 As String = e.Form.Controls("TextBox6").Text
'Dim y As Integer = " & txt1 & " '指定年份
'Dim m As Integer = "'%" & txt2 & "%'" '指定月份
'Dim rq1 As New Date(y, m, 1)
'Dim rq2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取该月的最后一天
'Dim Filter1 As String
'Dim Filter2 As String
'Filter1 = "入库日期 >= #" & rq1 & "# And 入库日期 <= #" & rq2 & "#"
'Filter2 = "出库日期 >= #" & rq1 & "# And 出库日期 <= #" & rq2 & "#"
'Tables("入库明细").Filter = Filter1
'Tables("出库明细").Filter = Filter2
Dim y As Integer = e.Form.Controls("TextBox5").Text '指定年份
Dim m As Integer = e.Form.Controls("TextBox6").Text '指定月份
Dim rq1 As New Date(y, m, 1)