- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请帮助解决一个条件隐藏列的问题？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=29105)
-- 发布时间：2013/2/27 19:21:00
-- 请帮助解决一个条件隐藏列的问题？
请帮助解决一个条件隐藏列的问题？
假设有一个"表A"，随机生成一临时表,如果整列内容为空或值为0，就隐藏列。
如有五列，第一列、第二列、第三列、第四列、第五列。
生成的表这五列都有，但根据数据输入，每次生成的表数据可能不同，就存在有的列有数据，有的列无数据，把无数据的列隐藏，我用的是手工隐藏。，如何用代码一次性隐藏，当列数多时，一点按钮都出来，再手工隐藏，非常麻烦。如图
此主题相关图片如下：26.jpg
此主题相关图片如下：27.jpg
[此贴子已经被作者于2013-2-28 6:49:19编辑过]
-- 发布时间：2013/2/28 8:57:00
--
判断空值要用ISNull
For Each c As Col In Tables("表A").Cols
Dim icou As Integer = 0
For Each r As Row In Tables("表A").Rows
If r.IsNull(c.Name) = False Then
icou = 1
Exit For
End If
Next
If icou = 0 Then
Tables("表A").Cols(c.Name).Visible = False
Else
Tables("表A").Cols(c.Name).Visible = True
End If
Next
-- 发布时间：2013/2/28 21:39:00
--
非常感谢