[求助]判定当前行是否存在未填项？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]判定当前行是否存在未填项？

共有2260人关注过本帖树形打印复制链接主题：[求助]判定当前行是否存在未填项？

新航程小何

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

加好友

发短信

等级：三尾狐帖子：629 积分：4786 威望：0 精华：0 注册：2014/9/17 11:34:00

[求助]判定当前行是否存在未填项？ 发帖心情

Post By：2015/6/10 12:02:00 [只看该作者]

各位老师，我想问一，有木有简单代码可以判定某一行记录是否存在未填项，目前采用的代码是

Dim t As Row = Tables("收购压榨计划").current

If t.IsNull(0) Or t.Isnull(2) Or t.Isnull(3) Or t.Isnull(4) Or t.Isnull(5) Or t.Isnull(6) Or t.Isnull(7) Then

MessageBox.Show("存在未填项,请核查!", "提示")

end if

，这样就会很麻烦的每次都要去数到底有几列，还得挨个写一遍数值，能不能直接全部判定完？

第二种情况，是这一条记录中只要判定除“审核人”、“审核时间”列为空的情况进行提醒？

大红袍

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

加好友

发短信

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

Post By：2015/6/10 12:07:00 [只看该作者]

Dim t As Table = Tables("表A")
Dim cr As Row = t.Current
Dim Isnull As Boolean = False
If cr.IsNull("第三列") OrElse cr.IsNull("第五列") Then
    Isnull = True
Else
    For Each c As Col In t.Cols
        If cr.IsNull(c.Name) Then
            Isnull = True
            Exit For
        End If
    Next
End If
msgbox(isnull)

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

主题：[求助]判定当前行是否存在未填项？