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

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

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

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--中断

banemon

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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 [显示全部帖子]

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

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

banemon

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]