Foxtable(狐表)用户栏目专家坐堂 → excel报表如何实现动态取对应格式的报表


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

主题:excel报表如何实现动态取对应格式的报表

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


加好友 发短信
等级:超级版主 帖子:110443 积分:562081 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/30 10:02:00 [显示全部帖子]

意思是使用不同的模板?参考:http://www.foxtable.com/webhelp/topics/1145.htm

比如:

Dim r As Row  = Tables("工艺单").Current
Dim Book As New XLS.Book( r("打印方案一"))
Dim fl As String = ProjectPath & "Reports\出库单.xls"
Book.Build() '生成细节区
Book.Sheets(0).Rows.RemoveAt(0) '删除第一行,Excel报表的第一行通常是标记行
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

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


加好友 发短信
等级:超级版主 帖子:110443 积分:562081 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/30 10:58:00 [显示全部帖子]


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


加好友 发短信
等级:超级版主 帖子:110443 积分:562081 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/30 16:15:00 [显示全部帖子]

1、保存的时候直接指定局域网地址即可:Dim fl As String = "\\192.168.0.1\xx共享目录\出库单.xls"
2、明细区不支持execl内置的公式

如果需要比较灵活的处理,建议直接手工填写数据:http://www.foxtable.com/webhelp/topics/1149.htm

更灵活的建议还是使用专业报表吧

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110443 积分:562081 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/30 17:08:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110443 积分:562081 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/30 17:22:00 [显示全部帖子]

参考:http://www.foxtable.com/webhelp/topics/2492.htm,反过来赋值即可,比如

sheet(4,1).Text = dr("姓名"

 回到顶部