如何判断某行中几个不连续的数据都不为空.. - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何判断某行中几个不连续的数据都不为空..

共有12297人关注过本帖树形打印复制链接主题：如何判断某行中几个不连续的数据都不为空..

banemon

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

加好友

发短信

等级：婴狐帖子：33 积分：375 威望：0 精华：0 注册：2011/4/5 17:15:00

如何判断某行中几个不连续的数据都不为空.. 发帖心情

Post By：2011/5/10 12:50:00 [只看该作者]

如何判断某行中几个不连续的数据都不为空.

为了要实现

Button.cleck

if--新增行的第一列,第二列,第三列,第五列,第七列,都不为空值时 then

--代码

end if--中断

blackzhu

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

加好友

发短信

等级：狐仙帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/5/10 13:48:00 [只看该作者]

Dim r As Row =Tables("表A").AddNew() '新增行

r("第二列")= "不是空值" '在新增行中输入不是空值的数据

If r("第二列")IsNot Nothing Then '如果第二列新增的行不是空值

MessageBox.Show("Str1不是空值!") '提示不是空值

End If

banemon

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

加好友

发短信

等级：婴狐帖子：33 积分：375 威望：0 精华：0 注册：2011/4/5 17:15:00

回复：（blackzhu）Dim r As Row =Tables("表A").AddN... 发帖心情

Post By：2011/5/10 16:51:00 [只看该作者]

这样的我会, 我想判断的是这个几值都不为空,

类似判断数组里的每个值,

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/5/10 16:54:00 [只看该作者]

这样：

If r.IsNull("第二列") = False AndAlso r.IsNull("第三列") = False AndAlso r.IsNull("第四列") = False AndAlso r.IsNull("第五列") = False Then

End If

banemon

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

加好友

发短信

等级：婴狐帖子：33 积分：375 威望：0 精华：0 注册：2011/4/5 17:15:00

回复：（狐狸爸爸）这样：?If r.IsNull("第二... 发帖心情

Post By：2011/5/10 18:24:00 [只看该作者]

好长啊, 还能更精短吗

我写成这样了,

Dim t As Table =Tables("成品出库单")

If t.current.Isnull("piao号")=False AndAlso t.current("日期")=False AndAlso t.current.isnull("对方单位") = False
    Dim r As Row =Tables("成品出库单.成品出库").AddNew()
    r("ID") = Tables("成品出库单.成品出库").DataTable.Compute("Max(ID)") + 1
    r("日期") = t.Current("日期")
End If

然后出错了

[此贴子已经被作者于2011-5-10 18:35:08编辑过]