以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教一个问题?如何动态生成Excell表？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=28972)
--  作者：lyfxybc
--  发布时间：2013/2/24 11:31:00
--  请教一个问题?如何动态生成Excell表？

请教一个问题?如何动态生成Excell表？

当前表有许多列，许多行，A4纸显然打不开，但是有许多列所有记录没有数值，形成EXCELL表示就不需要打印，如何只输出列中有数值的列。

 

也可这样就是设一按钮，点击按钮，把没有数值或为空的列隐藏起来，如何写代码，再输出Excell。

[此贴子已经被作者于2013-2-24 11:47:28编辑过]
--  作者：czy
--  发布时间：2013/2/24 12:21:00
--  

Dim s,s1 As String
s1 = Tables("表A").GetColVisibleWidth()
For Each dc As Col In Tables("表A").Cols
    If DataTables("表A").Compute("count(" & dc.name & ")",dc.name &" Is Not Null") > 0
        s = s & "|" & dc.name & "|" & dc.Width
    End If
Next
Tables("表A").SetColVisibleWidth(s.Trim("|"))

 

原来的输出代码

 

Tables("表A").SetColVisibleWidth(s1)
--  作者：lyfxybc
--  发布时间：2013/2/24 12:57:00
--  
谢谢
--  作者：lin_hailun
--  发布时间：2013/2/25 9:29:00
--  
 或者可以直接设置。

http://www.foxtable.com/help/topics/1554.htm
--  作者：lyfxybc
--  发布时间：2013/2/28 21:40:00
--  
谢谢