以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何判断列值为空，然后隐藏该列？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96058)
--  作者：fengwenliuyan
--  发布时间：2017/2/12 8:17:00
--  [求助]如何判断列值为空，然后隐藏该列？
表“A”有4列：“客户”、“筐”、“铁”、“架”，
如何判断每个客户的“筐”、“铁”、“架”3列的值是否为空，如果为空值，则隐藏该列？
If Tables("A").Rows.IsNull("筐") = True Then
Tables("A").Visible = False
End If
If Tables("A").Rows.IsNull("铁") = True Then
Tables("A").Visible = False
End If
If Tables("A").Rows.IsNull("架") = True Then
Tables("A").Visible = False
End If
但是提示错误说“isnull”不是“rowcollection”??
--  作者：fengwenliuyan
--  发布时间：2017/2/12 9:22:00
--  不能沉啊？
不能沉啊？
自己顶！
--  作者：有点色
--  发布时间：2017/2/12 9:37:00
--  
Dim cs() As String = {"客户", "筐", "铁", "架"}
For Each c As String In cs
    Dim idx As Integer = Tables("A").FindRow(c & " is not null")
    If idx >= 0 Then
        Tables("A").cols(c).Visible = True
    Else
        Tables("A").cols(c).Visible = False
    End If
Next