筛选的问题，空值返回提示和结果内的继续筛选 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 筛选的问题，空值返回提示和结果内的继续筛选

共有4008人关注过本帖树形打印复制链接主题：筛选的问题，空值返回提示和结果内的继续筛选

jolon

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

加好友

发短信

等级：幼狐帖子：82 积分：726 威望：0 精华：0 注册：2012/3/9 13:30:00

筛选的问题，空值返回提示和结果内的继续筛选 发帖心情

Post By：2018/3/1 12:30:00 [只看该作者]

请老师看一下对账窗体。

研究了好久终于把时间段筛选做出来

但是比如今天没有订单的话会报错，

第二个问题就是在下面的明细表里通过出库方式再次筛选当天的订单并且统计~~

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新库存管理系统.table

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/3/1 14:59:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新库存管理系统.table

jolon

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

加好友

发短信

等级：幼狐帖子：82 积分：726 威望：0 精华：0 注册：2012/3/9 13:30:00

Post By：2018/3/1 15:08:00 [只看该作者]

文件版本过高我用的是2014版，客服说不能升级

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/3/1 15:54:00 [只看该作者]

对账窗体_出库订单_CurrentChanged

If Tables("对账窗体_出库订单").Current Is Nothing Then Return
Tables("对账窗体_出库明细").Filter = "出库piao号 = '" & Tables("对账窗体_出库订单").Current("出库piao号") & "'"

对账窗体_ckfs_TextChanged

Dim Filter As String

With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "出库时间 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "出库时间 <= #" & .Value & "#"
    End If
End With

With e.Form.Controls("ckfs")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "出库方式 = '" & .text & "'"
    End If
End With

If Filter > "" Then
Tables("对账窗体_出库订单").Filter = Filter
End If

[此贴子已经被作者于2018/3/1 15:54:25编辑过]