以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  类型integel转换  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193016)

--  作者：g1j2h3 --  发布时间：2024/8/9 16:58:00 --  类型integel转换 下边代码不知错在哪里 \'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

--  作者：有点蓝 --  发布时间：2024/8/9 17:10:00 --   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)