以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  count计算某表列数的时候怎么排除隐藏列?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=4072)

--  作者:mr725
--  发布时间:2009/8/26 18:40:00
--  count计算某表列数的时候怎么排除隐藏列?
Output.Show(DataTables("订单").DataCols.Count)   怎么排除隐藏列?
如:总共8列,隐藏了2列,当隐藏列数不确定时,怎样用代码计算出显示列的列数

--  作者:yangming
--  发布时间:2009/8/26 19:22:00
--  
Dim n As Integer=0
  For Each cl As Col In Tables("出库明细").Cols \'排除隐藏列
If cl.Visible Then
 n=n+1
End If
Next
Output.Show(n)

--  作者:mr725
--  发布时间:2009/8/26 19:26:00
--  
以下是引用yangming在2009-8-26 19:22:00的发言:
Dim n As Integer=0
  For Each cl As Col In Tables("出库明细").Cols \'排除隐藏列
If cl.Visible Then
 n=n+1
End If
Next
Output.Show(n)

谢谢,看过你的例子了。  但DataTables("订单").DataCols.Count 后跟个参数true或false就更简便了


--  作者:yangming
--  发布时间:2009/8/26 19:30:00
--  
以下是引用mr725在2009-8-26 19:26:00的发言:

谢谢,看过你的例子了。  但DataTables("订单").DataCols.Count 后跟个参数true或false就更简便了

如能加参数当然方便了,呵呵