 加好友  发短信
等级：贵宾
帖子：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
|
|
