[求助]打印 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]打印

共有3789人关注过本帖树形打印复制链接主题：[求助]打印

扶风

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00

[求助]打印 发帖心情

Post By：2016/4/28 18:10:00 [只看该作者]

此主题相关图片如下：截图20160428180223.png

Dim Book As New XLS.Book(projectpath & "Attachments\产品入库序时簿模板.xlsx")

Dim fl As String = projectpath & "Reports\入库单.xlsx"

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Sheet(3,9).Value = "<All>" '写入打印条件

Book.Build() '生成细节区

Book.Save(fl) '保存工作簿

Dim Proc As New Process '打开工作簿

Proc.File = fl

Proc.Start()

老师请问如何换页打还是套用这个模板，因为有时候东西太多换页了，但他只是接着上面的，我想要下一页的也套用这个模板

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/28 18:12:00 [只看该作者]

参考

http://www.foxtable.com/help/topics/1399.htm

扶风

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00

Post By：2016/4/28 18:55:00 [只看该作者]

此主题相关图片如下：截图20160428185159.png

Dim sql As String = "Selec t [客户料号],[物料长代码] as [物料代码],[规格型号] as [产品规格],sum([应收数量]) as [入库数量],[制单] from {产品入库序时簿} Group by [客户料号],[物料长代码],[规格型号],[制单]"

Dim q As new QueryBuilder

q.TableName = "统计"

q.SelectString = sql

q.Build

老师这个是临时表，怎么能给这个临时表加一列序号并且让他自动生成序号？

[此贴子已经被作者于2016/4/28 19:01:20编辑过]

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/28 19:29:00 [只看该作者]

Dim sql As String = "Selec t 0 as 序号,[客户料号],[物料长代码] as [物料代码],[规格型号] as [产品规格],sum([应收数量]) as [入库数量],[制单] from {产品入库序时簿} Group by [客户料号],[物料长代码],[规格型号],[制单]"

Dim q As new QueryBuilder
q.TableName = "统计"
q.SelectString = sql
q.Build
For Each r As Row In Tables("统计").Rows
r("序号") = r.Index + 1
Next