以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]选择不同的打印模代码出错求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=104013)

--  作者:liuyixin662
--  发布时间:2017/7/21 8:19:00
--  [求助]选择不同的打印模代码出错求助

老师你好,我想设计一个针对同一个数据表,因需打印内容不同,而维护不同打印模板,在运行代码时出错,麻烦老师修改一下

1,建了一个"打印模板授权"的表,管理不同的打印模板.

2,建了一个"装箱单"的数据表,录入打印内容,根据不同的客户名称,选择(不同的内容)打印模板

3,建立不同客户的XLS打印模板

上述内容已准备完毕,在编写打印代码时遇到错误,烦请老师指点.谢谢

代码如下:

Dim path As String
Dim fl As String
For Each dr As DataRow In  DataTables("打印模板授权").sqlSelect("模板所在表名=\'装箱单\' And  用户名=\'" & Tables("装箱单").current("收方全称") & "\'")
    If  dr  Is Nothing  Then
        path = "Attachments\\装箱单.xls"
        fl = "Reports\\装箱单.xls"
    Else
        path = dr("新XLS文件路径及名称1")
        fl = dr("保存路径及名称2")
        MessageBox.show(1)
        If  path <> Nothing  And  fl <> Nothing  Then
            Dim Book As New XLS.Book(ProjectPath & path)
            Book.Build()
            Book.Save(ProjectPath & fl) \'保存工作簿
            Dim Proc As New Process \'打开工作簿
            Proc.File = ProjectPath & fl
            Proc.Start()
        End If
    End If
Next


图片点击可在新窗口打开查看此主题相关图片如下:打印模板授权表.bmp
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:装箱单表.bmp
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:xls模板文件.bmp
图片点击可在新窗口打开查看

--  作者:liuyixin662
--  发布时间:2017/7/21 8:19:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:打印代码出错.bmp
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2017/7/21 9:22:00
--  
 你表数据有问题,路径不要带有双引号"",去掉即可
--  作者:liuyixin662
--  发布时间:2017/7/21 9:49:00
--  
谢谢老师,可以了