主题：关于多个联接列

With e.Form.Controls("NF") '在前一筛选条件控制下设置第二项筛选条件,其内容根据第一列的变化而变化

    If .Value IsNot Nothing Then

        If Filter > "" Then

            Filter = Filter & " And "

        End If

        Dim d As Date = new Date(.value, 1, 1)

        Filter = Filter & "所属日期 >= #" & d & "# and 所属日期 < #" & d.AddYears(1) & "#"

    End If

End With