以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  多列空值判断 修改逻辑列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62882)
--  作者：yifan3429
--  发布时间：2015/1/9 14:45:00
--  多列空值判断 修改逻辑列
判断 列 1.2.3.4.5  是否有空值  有的话 逻辑列 6 为 否   全部非空值   逻辑列 6 为 是
代码怎么写  求助
--  作者：Bin
--  发布时间：2015/1/9 14:47:00
--  
if e.dataorw.isnull("第一列") andalso e.dataorw.isnull("第二列")   以此类推
--  作者：有点甜
--  发布时间：2015/1/9 14:53:00
--  
Dim cs As String = "第一列,第二列"
Dim r As Row = Tables("表A").Current
Dim flag As Boolean = False
For Each c As String In cs.Split(",")
    If r.IsNull(c) Then
        flag = True
        Exit For
    End If
Next
If flag Then
    r("第六列") = "否"
Else
    r("第六列") = "是"
End If
--  作者：yifan3429
--  发布时间：2015/1/9 15:47:00
--  

[此贴子已经被作者于2015-1-9 15:51:32编辑过]
--  作者：有点甜
--  发布时间：2015/1/9 15:56:00
--  
If flag Then
    r("支付对账") = "未核对"   是字符列
Else
    r("支付对账") = "已核对"
End If