- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于Excel模板的问题（已解决） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91948)
-- 发布时间：2016/10/22 17:09:00
-- [求助]关于Excel模板的问题（已解决）
如下图，我想直接用Excel模板生成下图这样的报表格式，请问要怎么才能实现呢？谢谢！
此主题相关图片如下：未命名-2.jpg
[此贴子已经被作者于2016/10/23 22:36:52编辑过]
-- 发布时间：2016/10/22 17:19:00
--
参考：http://www.foxtable.com/webhelp/scr/1414.htm
-- 发布时间：2016/10/22 17:24:00
--
以下是引用有点蓝在2016/10/22 17:19:00的发言：
参考：http://www.foxtable.com/webhelp/scr/1414.htm
参考：http://www.foxtable.com/webhelp/scr/1414.htm
您好！但是我想要的是 每一个序号读取的是对应的行的数据，这个要怎么做呢？谢谢！
例如：序号1 就是第一行的，序号2 就是 第二行的 ……
[此贴子已经被作者于2016/10/22 17:24:58编辑过]
-- 发布时间：2016/10/22 17:31:00
--
默认就是这样的，试过了吗
-- 发布时间：2016/10/22 17:34:00
--
以下是引用有点蓝在2016/10/22 17:31:00的发言：
默认就是这样的，试过了吗
默认就是这样的，试过了吗
您好！试过了，可以实现了，但是序号这里 两边都一样的，现在是第一行 左边序号1，右边也是序号1 ，而第二行左边序号 3，右边也是序号3
正确应该是第一行 左边序号 1，右边序号 2 第二行 左边序号 3，右边序号 4 才对
-- 发布时间：2016/10/22 17:43:00
--
现在生成出来的是下图这样，序号左右两边都一样了，请问这个序号 要怎么才能左边是 单数，右边是双数呢？谢谢！
此主题相关图片如下：未命名-2.jpg
[此贴子已经被作者于2016/10/22 17:48:22编辑过]
-- 发布时间：2016/10/22 18:15:00
--
版主，请问我这个序号的问题如何才能解决呢？
-- 发布时间：2016/10/23 16:01:00
--
用var变量解决：
步骤：
1、引用var变量参考：http://www.foxtable.com/webhelp/scr/1391.htm
2、设计模板的时候，第一个标签的编号为：[!bh]，第二个标签的编号为：<[!bh]+1>
步骤：
1、引用var变量参考：http://www.foxtable.com/webhelp/scr/1391.htm
2、设计模板的时候，第一个标签的编号为：[!bh]，第二个标签的编号为：<[!bh]+1>
3、将BuildDetail报表事件设置为：
vars("bh")= vars("bh") + 2
4、要自己做个打印按钮，按钮代码：
Vars.Add("bh",Gettype(Integer))
vars("bh") = -1
Dim Book As New XLS.Book(ProjectPath & "Attachments\\标签二.xls")
Dim fl As String = ProjectPath & "Reports\\标签二.xls"
Book.Build() \'生成细节区
Vars.Add("bh",Gettype(Integer))
vars("bh") = -1
Dim Book As New XLS.Book(ProjectPath & "Attachments\\标签二.xls")
Dim fl As String = ProjectPath & "Reports\\标签二.xls"
Book.Build() \'生成细节区
关于报表事件：
http://www.foxtable.com/webhelp/scr/1953.htm
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
-- 发布时间：2016/10/23 22:37:00
--
以下是引用狐狸爸爸在2016/10/23 16:01:00的发言：
用var变量解决：
步骤：
1、引用var变量参考：http://www.foxtable.com/webhelp/scr/1391.htm
2、设计模板的时候，第一个标签的编号为：[!bh]，第二个标签的编号为：<[!bh]+1>
步骤：
1、引用var变量参考：http://www.foxtable.com/webhelp/scr/1391.htm
2、设计模板的时候，第一个标签的编号为：[!bh]，第二个标签的编号为：<[!bh]+1>
3、将BuildDetail报表事件设置为：
vars("bh")= vars("bh") + 2
4、要自己做个打印按钮，按钮代码：
Vars.Add("bh",Gettype(Integer))
vars("bh") = -1
Dim Book As New XLS.Book(ProjectPath & "Attachments\\标签二.xls")
Dim fl As String = ProjectPath & "Reports\\标签二.xls"
Book.Build() \'生成细节区
Vars.Add("bh",Gettype(Integer))
vars("bh") = -1
Dim Book As New XLS.Book(ProjectPath & "Attachments\\标签二.xls")
Dim fl As String = ProjectPath & "Reports\\标签二.xls"
Book.Build() \'生成细节区
关于报表事件：
http://www.foxtable.com/webhelp/scr/1953.htm
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
感谢狐爸！已经解决了！
-- 发布时间：2016/10/24 22:41:00
--
学了一招