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)
3楼
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)