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

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

对账窗体_出库订单_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编辑过]

认认真真看4楼代码。如果不会做，请升级到最新版foxtable，然后打开2楼实例测试。

以下是引用jolon在2018/3/4 16:37:00的发言：
额我升级到2018看了别人的一个代码。。。。回到2014，自己的文档也打不开了。。。。。。咋整

这个没办法。如果用高版本打开过某个项目，就不能再用低版本的foxtable打开此项目了。

如果有备份，就换回备份吧。

以下是引用jolon在2018/3/4 16:55:00的发言：
犹豫了两天没要升级，做了一上午白忙活了

1、你升级的是【试用版】的foxtable？

2、如果你升级的是【商业版】的foxtable，为什么还要用回2014版？

主题：筛选的问题，空值返回提示和结果内的继续筛选