以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于动态增减列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110084)

--  作者:裴保民
--  发布时间:2017/11/26 8:50:00
--  关于动态增减列
设计报表模板时怎么设置成运行期间动态增减列呢?
--  作者:有点甜
--  发布时间:2017/11/26 12:10:00
--  

excel模板是固定的,无法动态增减。如果要增减,那就需要用vba修改excel模板
 
http://www.foxtable.com/webhelp/scr/2121.htm

 

上传具体例子说明你的问题。
 
 

[此贴子已经被作者于2017/11/26 12:10:47编辑过]

--  作者:裴保民
--  发布时间:2017/11/26 13:00:00
--  
打开程序后选择“打印窗体”对数据筛选后,选择要打印的列单击“打印数据”按钮执行带有打印预览的打印对话框单击打印在打印所选择的列。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:导出数据测试.rar



--  作者:有点甜
--  发布时间:2017/11/26 16:38:00
--  

Dim lieming As WinForm.CheckedListBox = e.Form.Controls("xzdylieCheckedListBox")

Dim t As Table = Tables("POS机库存资料")
Dim str As String = t.getColVisibleWidth
If lieming.value > "" Then
    For Each c As Col In t.Cols
        c.visible = False
    Next
    For Each s As String In lieming.value.split(",")
        t.cols(s).visible = True
    Next
End If
Tables("POS机库存资料").Print(True, False)
t.SetColVisibleWidth(str)


--  作者:裴保民
--  发布时间:2017/11/26 19:00:00
--  
选好要打印的列后,列宽怎么设呢?
--  作者:有点甜
--  发布时间:2017/11/26 21:09:00
--  
以下是引用裴保民在2017/11/26 19:00:00的发言:
选好要打印的列后,列宽怎么设呢?

 

列宽,你可以用鼠标直接修改右边的列的宽度。


--  作者:裴保民
--  发布时间:2017/11/26 21:14:00
--  
打印预览无法修改的
--  作者:有点甜
--  发布时间:2017/11/26 23:05:00
--  
以下是引用裴保民在2017/11/26 21:14:00的发言:
打印预览无法修改的

 

是在你打印之前,修改右边表格的列的宽度。


--  作者:裴保民
--  发布时间:2017/11/26 23:42:00
--  
我的窗体表不在打印窗体上,窗体是调用的只是选择要打印的列,而且打印窗体是模式窗体,没法调整列的宽度
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:导出数据测试.rar


[此贴子已经被作者于2017/11/27 0:51:45编辑过]

--  作者:有点甜
--  发布时间:2017/11/27 8:50:00
--  
以下是引用裴保民在2017/11/26 23:42:00的发言:
我的窗体表不在打印窗体上,窗体是调用的只是选择要打印的列,而且打印窗体是模式窗体,没法调整列的宽度
[此贴子已经被作者于2017/11/27 0:51:45编辑过]

 

那你本来想怎么设置列宽?通过什么方式设置列宽?

 

1、你可以调整好列宽,然后再打开窗口;

 

2、你可以在窗口那里放一个表格,用于设置表格列宽。