| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 多个没有关联的表纵向显示在一个表内显示，有方法破么 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=73140) |
| -- 作者：wanlong1215 -- 发布时间：2015/8/13 10:30:00 -- 多个没有关联的表纵向显示在一个表内显示，有方法破么 1.表A，B，C，列数不相同 2.显示在一张表格内，相当于多个列名 3.最后打印输出
a1 a2 a3 ... b1 b2 b3 b4 ... c1 c2 ... |
| -- 作者：大红袍 -- 发布时间：2015/8/13 10:34:00 -- 1、没有关联为什么要显示在一个表里面。
2、看一下查询表
http://www.foxtable.com/help/topics/2321.htm
3、用专业报表分别打印各个表
http://www.foxtable.com/help/topics/1166.htm
|
| -- 作者：wanlong1215 -- 发布时间：2015/8/13 11:27:00 -- 以下是引用大红袍在2015/8/13 10:34:00的发言：
1、没有关联为什么要显示在一个表里面。
2、看一下查询表
http://www.foxtable.com/help/topics/2321.htm
3、用专业报表分别打印各个表
http://www.foxtable.com/help/topics/1166.htm
唉，需求说只是为了看着方便
这些表格我可以显示在一张表格内打印么 |
| -- 作者：大红袍 -- 发布时间：2015/8/13 11:43:00 -- 1、多张表，sql语句可以合并成一张表显示；
2、打印的话，你可以用excel报表或专业报表，你看哪种适合就用哪种。 |
| -- 作者：wanlong1215 -- 发布时间：2015/8/13 12:26:00 -- 以下是引用大红袍在2015/8/13 11:43:00的发言：
1、多张表，sql语句可以合并成一张表显示；
2、打印的话，你可以用excel报表或专业报表，你看哪种适合就用哪种。
大师，我不同的表打印到excel表格可以追加么，比如表A输入到11.xls的sheet1里，50行，表B也输出到11.xls的sheet1内，从51行开始，这块追加的代码要怎么写呢 |
| -- 作者：大红袍 -- 发布时间：2015/8/13 14:23:00 -- 先生成sheet1、sheet2、sheet3，然后拷贝过来
Dim App As New MSExcel.Application Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\test.xls") Ws1.UsedRange.Copy \'ws3.Cells(Ws1.UsedRange.Rows.Count,1).Select \'纵向拷贝 \'Wb.Save |
| -- 作者：wanlong1215 -- 发布时间：2015/8/13 14:35:00 -- 以下是引用大红袍在2015/8/13 14:23:00的发言：
先生成sheet1、sheet2、sheet3，然后拷贝过来
Dim App As New MSExcel.Application Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\test.xls") Ws1.UsedRange.Copy \'ws3.Cells(Ws1.UsedRange.Rows.Count,1).Select \'纵向拷贝 \'Wb.Save 谢大师 |