- 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=91622)
-- 发布时间：2016/10/14 20:40:00
-- [求助]Excel 报表
Excel 报表 我想自动产生10行空行，但是安装单位没有全在一起。哪时出问题？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:表.xls |
-- 发布时间：2016/10/15 7:23:00
--
自己顶一下
-- 发布时间：2016/10/15 7:56:00
--
两个按钮功功能都实现不了，不知什么问题？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目.rar |
-- 发布时间：2016/10/15 9:53:00
--
安装单位没有全在一起是什么意思，效果截图说明
-- 发布时间：2016/10/15 10:14:00
--
分组的情况下没有办法给中间的分组增加空行，分组应该这样做
-- 发布时间：2016/10/15 14:38:00
--
选一个记录行没问题，当我选２个记录行，就有问题。图2与图３就是我想要的结果，要合并。还有当我按显示钩选行按钮后，选择多行时，就处理这些行，这样就可以隔行选择了。
此主题相关图片如下：1.jpg
此主题相关图片如下：2.jpg
此主题相关图片如下：3.jpg
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目.rar |
-- 发布时间：2016/10/15 14:46:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:表.xls |
-- 发布时间：2016/10/15 14:49:00
--
还有当我按显示钩选行按钮后，选择多行时，就处理这些行，这样就可以隔行选择了。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目.rar |
-- 发布时间：2016/10/15 15:04:00
--
打印前调用以下代码
-- 发布时间：2016/10/15 15:21:00
--
是不是这样：
Dim ids As new List(of Integer)
For Each r As Row In Tables("基本信息表").GetCheckedRows
ids.Add(r("_Identify"))
Next
Tables("基本信息表").Filter = "[_Identify] in (" & String.Join(",",ids.ToArray) & ")"
Dim Book As New XLS.Book(ProjectPath & "Attachments\\表.xls")
Dim fl As String = ProjectPath & "Reports\\表.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
\'\'Dim Proc As New Process \'打开工作簿
\'\'Proc.File = fl
\'Proc.Start()
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "Reports\\表.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
Ws.PrintPreview
但是显示错误
此主题相关图片如下：4.jpg