以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 切换不同表能相应打印该表的报表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73635) |
|
-- 作者:阿福 -- 发布时间:2015/8/23 21:11:00 -- 切换不同表能相应打印该表的报表 请问老师,在菜单里设置了“报表打印”按钮,如何设置“click”事件,再切换不用的表可以打开相应表的报表? |
|
-- 作者:有点蓝 -- 发布时间:2015/8/23 21:26:00 -- 打开excel报表 http://www.foxtable.com/help/index.html?n=1145.htm
|
|
-- 作者:阿福 -- 发布时间:2015/8/23 21:49:00 -- 老师我想所有报表打印都是同一个按钮,这样的代码帮我改一下 Dim t As String() = {"公猪采精","母猪配种","母猪妊检","母猪转产房"} Dim b As String() = {"公猪采精_table1","母猪配种_table1","母猪妊检_table1","母猪转产房_table1"} For i As Integer = 0 To b.Length - 1 If MainTable.Name = b(i) Then Dim Book As New XLS.Book(ProjectPath & "Attachments\\t(i).xls") Dim fl As String = ProjectPath & "Reports\\t(i).xls" Book.Build() Book.Save(fl) Dim Proc As New Process Proc.File = fl Proc.Start() End If Next |
|
-- 作者:有点蓝 -- 发布时间:2015/8/23 21:55:00 -- 关键是你菜单下面有没有子菜单,你的每个子菜单对应一个表名嘛 |
|
-- 作者:阿福 -- 发布时间:2015/8/23 22:01:00 -- 没有子菜单,因为有好多表需要报表打印 |
|
-- 作者:有点蓝 -- 发布时间:2015/8/23 22:04:00 -- 再多表也不可能同时一起打印嘛,你一个一个列出来让用户选择会比较好 |
|
-- 作者:阿福 -- 发布时间:2015/8/23 22:12:00 -- 不是同时打印,而是打印当前表的报表 |
|
-- 作者:有点蓝 -- 发布时间:2015/8/23 22:16:00 --
|
|
-- 作者:阿福 -- 发布时间:2015/8/23 22:23:00 -- 老师,执行上面代码,出现错误提示“Failed to open storage file.” |
|
-- 作者:有点蓝 -- 发布时间:2015/8/23 22:47:00 -- 你的表名是什么 |