[求助]如何判断表中setError的状态 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何判断表中setError的状态

共有2404人关注过本帖树形打印复制链接主题：[求助]如何判断表中setError的状态

有点甜

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

加好友

发短信

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

Post By：2018/11/30 11:49:00 [显示全部帖子]

1、当初，你是如何setError的？能否用一个全局变量，把所有的信息记录起来？

2、然后你直接判断变量？

3、如果不用变量，那么你需要循环每一行，循环每一列，读取error的值，看有没有内容。

有点甜

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

加好友

发短信

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

Post By：2018/11/30 12:31:00 [显示全部帖子]

代码改成

For Each dr As Row In Tables("预览").Rows
    For Each le As Col In Tables("预览").Cols
        If dr.DataRow.GetError(le.Name) > "" Then
            msgbox("有错误")
            goto label1
        End If
    Next
Next

msgbox("保存")
Tables("预览").save

label1:

msgbox("不保存")

有点甜

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

加好友

发短信

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

Post By：2018/12/3 10:33:00 [显示全部帖子]

参考

msgbox(1)
goto label1

msgbox("保存")

label1:
msgbox("不保存")

有点甜

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

加好友

发短信

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

Post By：2018/12/3 11:21:00 [显示全部帖子]

执行6楼代码有没有问题？执行8楼测试是什么结果？

有点甜

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

加好友

发短信

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

Post By：2018/12/3 13:01:00 [显示全部帖子]

那就不偷懒了吧，这样写

Dim flag = False
For Each dr As Row In Tables("预览").Rows
    For Each le As Col In Tables("预览").Cols
        If dr.DataRow.GetError(le.Name) > "" Then
            msgbox("有错误")
            flag = True
            Exit For
        End If
    Next
    If flag Then
        Exit For
    End If
Next

If flag = False Then
msgbox("保存")
Tables("预览").save
End If

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

主题：[求助]如何判断表中setError的状态