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

1楼

banemon 发表于：2011/5/10 12:50:00

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

为了要实现

Button.cleck

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

--代码

end if--中断

2楼

blackzhu 发表于：2011/5/10 13:48:00

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

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

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

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

End If

3楼

banemon 发表于：2011/5/10 16:51:00

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

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

4楼

狐狸爸爸 发表于：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

5楼

banemon 发表于：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编辑过]

6楼

mr725 发表于：2011/5/10 18:48:00

Dim t As Table =Tables("成品出库单")
dim dd as date = t.Current("日期")

7楼

banemon 发表于：2011/5/11 10:01:00

谢谢,看来没有更简单的了

8楼

zhjm 发表于：2011/10/6 23:17:00

如果要判断100多个列怎么办？全写吗？

9楼

banemon 发表于：2012/1/5 3:14:00

我也是考虑这个问题的。

10楼

banemon 发表于：2012/1/5 3:14:00

以下是引用zhjm在2011-10-6 23:17:00的发言：
如果要判断100多个列怎么办？全写吗？

我也是考虑这个问题的

共11 条记录, 每页显示 10 条, 页签: [1] [2]