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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 空白行

共有2549人关注过本帖树形打印复制链接主题：空白行

gcc123

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

加好友

发短信

等级：一尾狐帖子：407 积分：3087 威望：0 精华：0 注册：2014/6/10 11:31:00

空白行

Post By：2014/8/12 14:33:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20140812143202.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

Excel这种选择空白的时候某一列的空白行能选出来在狐表中能不能实现？

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/8/12 14:39:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

有点甜

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

加好友

发短信

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

Post By：2014/8/12 14:41:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

gcc123

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

加好友

发短信

等级：一尾狐帖子：407 积分：3087 威望：0 精华：0 注册：2014/6/10 11:31:00

Post By：2014/8/12 14:43:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20140812144352.png

如果某一列某一行内容是空白的话别的列都有数据，怎么筛选不出来呢？已回单列为例

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/8/12 14:45:00 [只看该作者]

2楼例子测试没问题

此主题相关图片如下：qq截图20140812144445.png

gcc123

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

加好友

发短信

等级：一尾狐帖子：407 积分：3087 威望：0 精华：0 注册：2014/6/10 11:31:00

Post By：2014/8/13 13:51:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20140813135953.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1(3)(1).table

同时按空值查询数据出不来

[此贴子已经被作者于2014-8-13 13:58:41编辑过]

有点甜

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

加好友

发短信

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

Post By：2014/8/13 14:01:00 [只看该作者]

Dim Filter As String = "1=1"
With e.Form.Controls("托运")
    If .Value IsNot Nothing Then
        If .Value <> "(空白)" Then
            Filter = Filter & " and 托运单位 = '" & .Value & "'"
        Else
            Filter = Filter & " and (托运单位 is null or 托运单位 = '')"
        End If
    End If
End With

With e.Form.Controls("回单")
    If .Value IsNot Nothing Then
        If .Value <> "(空白)" Then
            Filter = Filter & " and 回单 = '" & .Value & "'"
        Else
            Filter = Filter & " and (回单 is null or 回单 = '')"
        End If
    End If
End With
If Filter >= "" Then
    Tables("应付应收录入").Filter = Filter
End If

下一主题 >> << 上一主题

主题：空白行