关于多个联接列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于多个联接列

共有4556人关注过本帖树形打印复制链接主题：关于多个联接列

lgj716330

小大 21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1310 积分：10133 威望：0 精华：0 注册：2013/11/8 15:27:00

Post By：2015/12/27 15:44:00 [显示全部帖子]

年和月一起弄的会弄了

跨过年，直接弄月的还是不知怎么弄，如筛选10月份，统计表出来各年10份的数据进行同期比较，帮我看看以下代码有什么问题

Dim d As Date = DataTables("部门损益总账").Compute("max(所属日期)")

Dim y As Integer = d.year

Dim m As Integer = e.Form.Controls("YF").Text

Dim dt1 As New Date(y, m, 1)

Dim dt2 As New Date(y, m, Date.DaysInMonth(y,m)) '获取该月的最后一天

Filter = "所属日期 >= #" & dt1 & "# And 所属日期 <= #" & dt2 & "#"

End If

lgj716330

小大 22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1310 积分：10133 威望：0 精华：0 注册：2013/11/8 15:27:00

Post By：2015/12/27 16:45:00 [显示全部帖子]

With e.Form.Controls("YF") '在前一筛选条件控制下设置第二项筛选条件,其内容根据第一列的变化而变化
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "year(所属日期) = " & .value
    End If
End With

这个代码放进去，错误提示是没有了，但没筛选到任何数据