以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何判断某行中几个不连续的数据都不为空..  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=9840)
--  作者：banemon
--  发布时间：2011/5/10 12:50:00
--  如何判断某行中几个不连续的数据都不为空..
如何判断某行中几个不连续的数据都不为空.
为了要实现
Button.cleck    
 if--新增行的第一列,第二列,第三列,第五列,第七列,都不为空值时  then
       --代码
     end if--中断
 
--  作者：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
--  作者：banemon
--  发布时间：2011/5/10 16:51:00
--  回复：（blackzhu）Dim r As Row =Tables("表A").AddN...

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

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

 
--  作者：狐狸爸爸
--  发布时间：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
--  发布时间：2011/5/10 18:24:00
--  回复：（狐狸爸爸）这样：?If r.IsNull("第二...

好长啊, 还能更精短吗

 

我写成这样了,

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

If  t.current.Isnull("票号")=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编辑过]
--  作者：mr725
--  发布时间：2011/5/10 18:48:00
--  
 

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

If  t.current.Isnull("票号")=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("日期")  = dd
End If

--  作者：banemon
--  发布时间：2011/5/11 10:01:00
--  
谢谢,看来没有更简单的了
--  作者：zhjm
--  发布时间：2011/10/6 23:17:00
--  
如果要判断100多个列怎么办？全写吗？
--  作者：banemon
--  发布时间：2012/1/5 3:14:00
--  
我也是考虑这个问题的。
--  作者：banemon
--  发布时间：2012/1/5 3:14:00
--  
以下是引用zhjm在2011-10-6 23:17:00的发言：
如果要判断100多个列怎么办？全写吗？
我也是考虑这个问题的