Foxtable(狐表) → 用户栏目 → 专家坐堂 → [讨论]如何利用CheckedComboBox控件打印多个报表?


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

主题：[讨论]如何利用CheckedComboBox控件打印多个报表?
帅哥哟，离线，有人找我吗？
blackzhu
 小大  11楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/6/4 15:52:00 [只看该作者]

Dim Vals() As String = Forms("窗口3").Controls("CheckedComboBox1").Value.Split(",")
For Val As Integer = 0 To Vals.Length - 1
    Dim Book As New XLS.Book("D:\Release商业版\CaseStudy\Attachments\1" & Val & ".xls") '打开模板
    Book.Build() '生成细节区
    Book.Save("D:\Release商业版\CaseStudy\Attachments\2" & Val & ".xls") '保存工作簿
    Dim Proc As New Process '打开工作簿
    Proc.File = "D:\Release商业版\CaseStudy\Attachments\2" & Val & ".xls"
    Proc.Start()
Next

但是用这个代码还是出错!
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  12楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/6/4 16:09:00 [只看该作者]

Dim Vals() As String = Forms("窗口3").Controls("CheckedComboBox1").Value.Split(",")
For Val As Integer = 0 To Vals.Length - 1
    Dim Book As New XLS.Book(ProjectPath & "1\" & Vals(Val) & ".xls") '打开模板
    Book.Build() '生成细节区
    Book.Save(ProjectPath & "2\" & Vals(Val) & ".xls") '保存工作簿
    Dim Proc As New Process '打开工作簿
    Proc.File = ProjectPath & "2\" & Vals(Val) & ".xls"
    proc.WaitForClose = True
    Proc.Start()
Next


  终于搞定,一下午.发上来.打开订单表的窗口3测试.
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试复选框打印.rar
 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2011/6/4 16:13:00 [只看该作者]

以下是引用blackzhu在2011-6-4 15:33:00的发言：
没有用,你的代码我测试了,没有用.不是显示不显示的问题?我用MessageBox.SHOW测试了一下.
比如控件的值为"标签一,标签二",测试下来是标  然后是签.所以说找不到报表.

怎么可能呢？？？？  标 和 签 怎么会分开？：

 

Dim Vals() As String = {"标签一","标签二"}
For Val As Integer = 0 To Vals.Length - 1
    MessageBox.show(Vals(Val))
Next
 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2011/6/4 16:17:00 [只看该作者]

 难怪你搞一个下午....  \1" & Val & ".xls  这个你也写得出来。。。。。。。。

 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2011/6/4 16:49:00 [只看该作者]

这个现象我没有搞明白：
Dim Vals() As String = Forms("窗口3").Controls("CheckedComboBox1").Value.Split(",")
For Val As Integer = 0 To Vals.Length - 1
    Dim Book As New XLS.Book(ProjectPath & "1\" & Vals(Val) & ".xls") '打开模板
    Book.Build() '生成细节区
    Book.Save(ProjectPath & "2\" & Vals(Val) & ".xls") '保存工作簿
    Dim Proc As New Process '打开工作簿
    Proc.File = ProjectPath & "2\" & Vals(Val) & ".xls"
    proc.WaitForClose = True
    Proc.Start()
Next                   ’这段代码要关闭前一个Excel，才能打开下一个Excel。

 

用我6楼的代码可以一次性连续打开所有Excel。（只是把上面的第一行代码拆分了而已）


 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  16楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/6/4 19:10:00 [只看该作者]

以下是引用mr725在2011-6-4 16:49:00的发言：
这个现象我没有搞明白：
Dim Vals() As String = Forms("窗口3").Controls("CheckedComboBox1").Value.Split(",")
For Val As Integer = 0 To Vals.Length - 1
    Dim Book As New XLS.Book(ProjectPath & "1\" & Vals(Val) & ".xls") '打开模板
    Book.Build() '生成细节区
    Book.Save(ProjectPath & "2\" & Vals(Val) & ".xls") '保存工作簿
    Dim Proc As New Process '打开工作簿
    Proc.File = ProjectPath & "2\" & Vals(Val) & ".xls"
    proc.WaitForClose = True
    Proc.Start()
Next                   ’这段代码要关闭前一个Excel，才能打开下一个Excel。

 

用我6楼的代码可以一次性连续打开所有Excel。（只是把上面的第一行代码拆分了而已）

  我故意加了proc.WaitForClose = True 这一行代码,看看效果的.
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  17楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/6/4 19:12:00 [只看该作者]

你6楼的代码我测试过了没有反应,错误也是找不到报表.我就犯错在这上面"& Val & ".xls",唉,气死我了.还是不够熟悉造成的.

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  18楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/6/4 19:13:00 [只看该作者]

你哪个就是出来一个标,一个签.

 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2011/6/4 19:28:00 [只看该作者]

以下是引用blackzhu在2011-6-4 19:10:00的发言：

  我故意加了proc.WaitForClose = True 这一行代码,看看效果的.

呵呵，还真没注意到呢。


 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2011/6/4 19:38:00 [只看该作者]

以下是引用blackzhu在2011-6-4 19:13:00的发言：
你哪个就是出来一个标,一个签.

这是不可能的呀，你一定是标和签之间有个“，”号 



图片点击可在新窗口打开查看此主题相关图片如下：test.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2011-6-4 19:39:11编辑过]
 回到顶部
总数 21 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04590 秒, 5 次数据查询