以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  打印窗体表 怎么实现标题设定及想打印的列设定呢?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146255)

--  作者:李孝春
--  发布时间:2020/2/20 10:34:00
--  打印窗体表 怎么实现标题设定及想打印的列设定呢?
Dim tb1 As WinForm.Table = e.Form.Controls("Table1")
tb1.Table.Print(True,False)
 上述代码 打印出来的标题为窗口名称  怎么设定标题呢?
是窗体表中的数据全部打印出来,怎么设定让用户自己选择打印字段呢?

--  作者:有点蓝
--  发布时间:2020/2/20 11:18:00
--  
标题参考:http://www.foxtable.com/webhelp/topics/2641.htm

至于列,自己可以使用CheckedComboBox给用户选择列,然后先隐藏窗口表的列后再打印:http://www.foxtable.com/webhelp/topics/0572.htm

--  作者:李孝春
--  发布时间:2020/2/20 11:49:00
--  回复:(有点蓝)标题参考:http://www.foxtable.com/...
窗体表经过筛选后的数据 怎么导出呢?
麻烦老师再指导一下

--  作者:有点蓝
--  发布时间:2020/2/20 13:32:00
--  
Tables("窗口1_table1").SaveExcel("C:\\data\\test.xls","订单",flg)


--  作者:李孝春
--  发布时间:2020/2/20 14:54:00
--  回复:(有点蓝)标题参考:http://www.foxtable.com/...
Dim tb1 As WinForm.Table = Forms("学校数据管理").Controls("Table1")
Dim str As String = ""
For Each c As Col In tb1.Table.cols
    str = c.name
    output.show(str)
Next

获取得到列名

怎么和显隐true匹配   然后设置显示列?并进行排序设置?


Tables
("字段显隐").Cols("显隐").Visible = True
如下为字段显隐表中的两个字段  内容

图片点击可在新窗口打开查看此主题相关图片如下:测试.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2020/2/20 14:55:12编辑过]

--  作者:有点蓝
--  发布时间:2020/2/20 15:17:00
--  
for each r as row in Tables("字段显隐").rows
tb1.cols(r("列名")).visible =  r("显隐")
next