请教一个问题?如何动态生成Excell表？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教一个问题?如何动态生成Excell表？

共有8109人关注过本帖树形打印复制链接主题：请教一个问题?如何动态生成Excell表？

lyfxybc

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1294 积分：9852 威望：0 精华：0 注册：2012/9/19 21:13:00

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

Post By：2013/2/24 11:31:00 [只看该作者]

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

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

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

[此贴子已经被作者于2013-2-24 11:47:28编辑过]

czy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：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)