怎么加入判断没有此行数据的代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎么加入判断没有此行数据的代码

共有2074人关注过本帖树形打印复制链接主题：怎么加入判断没有此行数据的代码

114039247

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

加好友

发短信

等级：幼狐帖子：103 积分：1664 威望：0 精华：0 注册：2016/5/11 0:19:00

怎么加入判断没有此行数据的代码 发帖心情

Post By：2016/7/6 2:01:00 [只看该作者]

Dim Filter As String

With e.Form.Controls("textBox1")

If .Value IsNot Nothing Then

Filter = "工程 = '" & .Value & "'" & "and 完成 = True"

End If

End With

If Filter > "" Then

Tables("工程").Filter = Filter

End If

如果“工程”里面没有“完成 = true ”的，会弹出运行错误的代码，要怎么去判断呢？

对不起，我貌似迷上这软件了

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/7/6 9:54:00 [只看该作者]

和这段没有关系，去看你的currentChanged事件，加上判断

If e.Table.Current Is Nothing Then reutn '写在第一行

114039247

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

加好友

发短信

等级：幼狐帖子：103 积分：1664 威望：0 精华：0 注册：2016/5/11 0:19:00

Post By：2016/7/6 15:58:00 [只看该作者]

那里不对吗？还是有这个运行错误

我筛选的是窗口里面的表（副本）

If Forms("任务提醒").Opened Then '如果窗口已经打开

Dim tb As Table = Tables("任务提醒_table1")

If tb.Current Is Nothing Then

msgbox("没有找到")

Return

End If

窗口按钮：

Dim Filter As String

With e.form.Controls("textBox1")

If .Value IsNot Nothing Then

Filter = "交接人 = '" & .Value & "'" & "and 完成 = True"

End If

End With

Tables("任务提醒_table1").Filter = Filter

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/7/7 0:39:00 [只看该作者]

下面这段写在最前面去

    Dim tb As Table = Tables("任务提醒_table1")
    If tb.Current Is Nothing Then
        msgbox("没有找到")
        Return
    End If

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

主题：怎么加入判断没有此行数据的代码