Dim drs As DataCol = DataTables("付款管理").DataCols("付款金额") Dim JINE As Double JINE=drs("付款金额") Select Case JINE Case >=100 Dim Book As New XLS.Book(ProjectPath & "Attachments\报表模板_付款通知单-江铜.xls") Dim f2 As String = ProjectPath & "Reports\付款通知单-江铜.xls" Book.Build() Book.Save(f2) Dim Proc As New Process Proc.File = f2 Proc.Start() Case Else Dim Book As New XLS.Book(ProjectPath & "Attachments\报表模板_付款通知单-贵冶.xls") Dim fl As String = ProjectPath & "Reports\付款通知单-贵冶.xls" Book.Build() Book.Save(fl) Dim Proc As New Process Proc.File = fl Proc.Start() End Select
|