Foxtable(狐表)用户栏目专家坐堂 → 多个没有关联的表纵向显示在一个表内显示,有方法破么


  共有2843人关注过本帖树形打印复制链接

主题:多个没有关联的表纵向显示在一个表内显示,有方法破么

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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

 


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/13 11:43:00 [显示全部帖子]

1、多张表,sql语句可以合并成一张表显示;

 

2、打印的话,你可以用excel报表或专业报表,你看哪种适合就用哪种。


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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")
Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets("sheet1") '指定要复制的工作表
Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets("sheet2")
Dim Ws3 As MSExcel.WorkSheet = Wb.WorkSheets("sheet3")

Ws1.UsedRange.Copy
ws3.Cells(1,1).Select
ws3.paste
Ws2.UsedRange.Copy
ws3.Cells(1,Ws1.UsedRange.Columns.Count).Select '横向拷贝

'ws3.Cells(Ws1.UsedRange.Rows.Count,1).Select '纵向拷贝
ws3.paste

'Wb.Save
app.Visible = True
'App.Quit


 回到顶部