以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  根据行的不同值，自动选择不同的打印模板  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94840)
--  作者：sbfqpidt
--  发布时间：2017/1/3 17:53:00
--  根据行的不同值，自动选择不同的打印模板
老师好！
    我想根据某行的不同值，自动选择不同的打印模板。可是，有困难呀！
    这是我的代码：
    Select Case e.DataCol.Name
    Case "订单种类"
        If e.DataRow("订单种类") = "开发样品" Or e.DataRow("订单种类") = "修订样品" Or e.DataRow("订单种类") = "常规样品" Then \'如果样品单,则打印样品评审单
            
            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.Verb = "Print" \'指定动作
            Proc.Start()
        End If
End Select

Select Case e.DataCol.Name
    Case "订单种类"
        If e.DataRow("订单种类") <> "开发样品" Or e.DataRow("订单种类") <> "修订样品" Or e.DataRow("订单种类") <> "常规样品" Then \'如果不是样品单
            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.Verb = "Print" \'指定动作
            Proc.Start()
          End If
End Select

谢谢老师指正！
--  作者：有点色
--  发布时间：2017/1/3 18:00:00
--  
Dim cr As Row = Tables("某表").Current
Dim Book As New XLS.Book(ProjectPath & "Attachments\\合同评审表.xls")\'打开模板
Dim fl As String = ProjectPath & "Reports\\合同评审表.xls"
If cr("订单种类") = "开发样品" Or cr("订单种类") = "修订样品" Or cr("订单种类") = "常规样品" Then \'如果样品单,则打印样品评审单
    fl = ProjectPath & "Reports\\样品评审单.xls"
End If
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Verb = "Print" \'指定动作
Proc.Start()
--  作者：sbfqpidt
--  发布时间：2017/1/4 7:51:00
--  
1、首先是思路问题！
2、学习不够！

太谢谢老师啦！