以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  下列代码不执行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150404)

--  作者：lyfxybc --  发布时间：2020/5/29 9:37:00 --  下列代码不执行 For i As Integer = 1 To Tables("table1").Cols.count      For Each dr As Row In Tables("table1").Rows                  If dr.IsNull("第" & (i) & "列")  Then \'如果数量或单价为空             Tables("table1").Cols("第" & (i) & "列").Visible = False         End If     Next    Next

--  作者：有点蓝 --  发布时间：2020/5/29 9:38:00 --   没看懂，要做什么功能？

--  作者：lyfxybc --  发布时间：2020/5/29 9:49:00 --   列中有数值显示，无数值隐藏

--  作者：有点蓝 --  发布时间：2020/5/29 9:56:00 --   For Each c As Col In Tables("table1").Cols     If Tables("table1").Compute("count(" & c.Name & ")", c.Name & " is not null") = 0 Then         c.Visible = False     Else         c.Visible = True     End If Next