以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  选择模版问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=21564)
--  作者：gygck
--  发布时间：2012/7/17 14:20:00
--  选择模版问题

我的问题是：

 

我在付款管理表中，一次性选择了几条记录，用  生成付款通知单  按钮

 

能够自动按照付款金额的大写，选择江铜  或者  贵冶  模版输出报表

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:复件 项目管理.rar
--  作者：狐狸爸爸
--  发布时间：2012/7/17 15:52:00
--  
Dim fl As String
If 条件1成立 Then
    fl = ProjectPath & "Attachments\\模板1.xls"
ElseIf 条21成立 Then
    fl = ProjectPath & "Attachments\\模板2.xls"
ElseIf 条件3成立 Then
    fl = ProjectPath & "Attachments\\模板3.xls"
Else
    Return
End If
Dim Book As New XLS.Book(fl)
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()