以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]请教代码写法  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=173312)
--  作者：gaonuavao
--  发布时间：2021/11/23 20:52:00
--  [求助]请教代码写法

Dim Filter As String = ""
Dim F1 As String = ""
If e.node.Name <> "显示所有行" Then
    Dim d1 As Date
    Dim d2 As Date
    Dim Year As Integer = e.Node.DataRow("年")
    Dim Month As Integer = e.Node.DataRow("月")
    Select Case e.Node.Level
        Case 0
            d1 = New Date(Year,1,1) \'取得该年的第一天
            d2 = new Date(Year,12,31) \'取得该年的最后一天
            Filter = "入库日期 >= #" & d1 & "# And 入库日期 <= #" & d2 & "#"
            
        Case 1
            d1 = New Date(Year, Month, 1) \'取得该月的第一天
            d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) \'取得该月的最后一天
            Filter = "入库日期 >= #" & d1 & "# And 入库日期 <= #" & d2 & "#"
    End Select
End If
Tables("frm采购入库_table1").Filter = Filter

Tables("frm采购入库_table1").Filter ="供应商代码 NOT LIKE \'VV%\'"

请问老师，如何把红色代码写进黄色代码里面？谢谢！
--  作者：有点蓝
--  发布时间：2021/11/23 21:04:00
--  
        Case 1
            d1 = New Date(Year, Month, 1) \'取得该月的第一天
            d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) \'取得该月的最后一天
            Filter = "入库日期 >= #" & d1 & "# And 入库日期 <= #" & d2 & "#"
    End Select
End If
if Filter > "" then Filter = Filter & " and "
Filter = Filter & "供应商代码 NOT LIKE \'VV%\'"
Tables("frm采购入库_table1").Filter = Filter
--  作者：gaonuavao
--  发布时间：2021/11/23 21:19:00
--  
非常感谢！