- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 空值列隐藏 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84862)
-- 发布时间：2016/5/12 9:55:00
-- 空值列隐藏
所有控制列隐藏，求代码？
For Each dr As Col In Tables("学生基本信息_Table2").Cols
If dr IsNot Nothing Then
dr.Visible = True
Else
dr.Visible = False
End If
Next
-- 发布时间：2016/5/12 10:00:00
--
For Each c As Col In Tables("学生基本信息_Table2").Cols
Dim fdr As DataRow = c.Table.DataTable.Find(c.name & " is not null")
If fdr IsNot Nothing Then
c.Visible = True
Else
c.Visible = False
End If
Next
[此贴子已经被作者于2016/5/12 10:10:07编辑过]
-- 发布时间：2016/5/12 10:08:00
--
-- 发布时间：2016/5/12 10:10:00
--
For Each c As Col In Tables("学生基本信息_Table2").Cols
Dim fdr As DataRow = c.Table.DataTable.Find(c.name & " is not null")
If fdr IsNot Nothing Then
c.Visible = True
Else
c.Visible = False
End If
Next