以文本方式查看主题

-  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
--  
老师我想所有报表打印都是同一个按钮,这样的代码帮我改一下

Dim t As String() = {"公猪采精","母猪配种","母猪妊检","母猪转产房"}
Dim b As String() = {"公猪采精_table1","母猪配种_table1","母猪妊检_table1","母猪转产房_table1"}
Dim j as Integer
For  i As Integer = 0 To b.Length - 1
  If CurrentTable.Name = b(i) Then
  j = i
Next
Dim Book As New XLS.Book(ProjectPath & "Attachments\\t(j).xls")
Dim fl As String = ProjectPath & "Reports\\t(j).xls"
Book.Build() 
Book.Save(fl) 
Dim Proc As New Process 
Proc.File = fl
Proc.Start()
End If


--  作者:阿福
--  发布时间:2015/8/23 22:23:00
--  
老师,执行上面代码,出现错误提示“Failed to open storage file.”
--  作者:有点蓝
--  发布时间:2015/8/23 22:47:00
--  
你的表名是什么