切换不同表能相应打印该表的报表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 切换不同表能相应打印该表的报表

共有2829人关注过本帖树形打印复制链接主题：切换不同表能相应打印该表的报表

阿福

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：196 积分：1357 威望：0 精华：0 注册：2015/3/25 16:42:00

Post By：2015/8/24 8:37:00 [只看该作者]

这个是模板报表名 Dim t As String() = {"公猪采精","母猪配种","母猪妊检","母猪转产房"}

这个是窗口里的表名： Dim b As String() = {"公猪采精_table1","母猪配种_table1","母猪妊检_table1","母猪转产房_table1"}

datatable表名： “采精” “母猪分娩断奶” “母猪分娩断奶” “母猪分娩断奶”

有点蓝

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106645 积分：542402 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2015/8/24 9:13:00 [只看该作者]

那应该没问题啊，你输出 fl 看看是什么，是否与对应的模板目录一样

大红袍

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/24 9:17:00 [只看该作者]

Dim t As String() = {"公猪采精","母猪配种","母猪妊检","母猪转产房"}
Dim b As String() = {"公猪采精_table1","母猪配种_table1","母猪妊检_table1","母猪转产房_table1"}
Dim j As Integer = -1
For i As Integer = 0 To b.Length - 1
    If CurrentTable.Name = b(i) Then
        j = i
    End If
Next
If j > -1 Then
    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