专家坐堂-下列代码不执行Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  下列代码不执行  (http://foxtable.net/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