以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  【请教】根据当前指定栏内容选择打印模板  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71874)
--  作者：everybody
--  发布时间：2015/7/19 21:59:00
--  【请教】根据当前指定栏内容选择打印模板
思路很简单，根据当前列“工作类型”的内容，选择不同execl模板：
下面代码有错误，请指出bug！

不能上错误提示照片了，错误提示为

编译错误：应为语句结束

错误代码：path = "Attachments\\推荐登记表.xls")

--------------------------------------------------------------------以下为我拼凑的代码

Dim dr As DataRow = Tables("推荐类型").current.DataRow
Dim path As String
If dr("推荐类型") = "民主推荐" Or dr("推荐类型") = "二次推荐"  Then
    path = "Attachments\\推荐登记表.xls")
Else If dr("推荐类型") = "谈话推荐"  Then
    path = "Attachments\\谈话推荐登记表.xls")
Else
    msgbox("没有相应的Excel模板!")
End If
If path > "" Then
    Dim Book As New XLS.Book(ProjectPath & path)
    Dim fl As String = ProjectPath & "Reports\\推荐登记表.xls"
    Book.Build() \'生成细节区
    Book.Save(fl) \'保存工作簿
    Dim Proc As New Process \'打开工作簿
    Proc.File = fl
    Proc.Start()
End If


[此贴子已经被作者于2015/7/19 22:00:07编辑过]
--  作者：everybody
--  发布时间：2015/7/19 22:51:00
--  
自己顶顶，觉得这个应该很多人用的上啊
--  作者：sloyy
--  发布时间：2015/7/20 1:35:00
--  
你用messagebox.show 调试就知道错误在哪里了
应该这样写:
 path = "Attachments\\推荐登记表.xls"

你多一个 ) 干什么?
--  作者：大红袍
--  发布时间：2015/7/20 9:21:00
--  
Dim dr As DataRow = Tables("推荐类型").current.DataRow
Dim path As String
If dr("推荐类型") = "民主推荐" Or dr("推荐类型") = "二次推荐"  Then
    path = "Attachments\\推荐登记表.xls"
Else If dr("推荐类型") = "谈话推荐"  Then
    path = "Attachments\\谈话推荐登记表.xls"
Else
    msgbox("没有相应的Excel模板!")
End If
If path > "" Then
    Dim Book As New XLS.Book(ProjectPath & path)
    Dim fl As String = ProjectPath & "Reports\\推荐登记表.xls"
    Book.Build() \'生成细节区
    Book.Save(fl) \'保存工作簿
    Dim Proc As New Process \'打开工作簿
    Proc.File = fl
    Proc.Start()
End If