以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]报表里引用图片列如果通过图片的长宽尺寸判断修改图片的打印尺寸？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79399)
--  作者：111yangguojun
--  发布时间：2015/12/30 15:15:00
--  [求助]报表里引用图片列如果通过图片的长宽尺寸判断修改图片的打印尺寸？
有个图片列  比方列名  叫  tupian ，

如何在报表打印中根据当前行“tupian” 列中图片的长宽尺寸进行如下判断：

如果 长/宽 ＞ 1.5 的时候，图片尺寸按   长：100  宽50 显示
否则，图片尺寸按  长  100 宽 30显示
--  作者：大红袍
--  发布时间：2015/12/30 15:32:00
--  

方法一：对所有图片，根据规则剪裁一次。

 

方法二：不可能用模板直接导出，你需要编写代码动态的生成图片，类似生成条码的方法。

 

http://www.foxtable.com/help/topics/1955.htm

 

方法三：在方法二的基础上，直接修改模板内容 http://www.foxtable.com/help/topics/2294.htm

 
--  作者：111yangguojun
--  发布时间：2015/12/30 17:05:00
--  
采用老师给的方法二，有一点偏差，请老师看下问题出在哪：
BuildDetail代码如下：
Select Case e.Book.TempLate
    Case "生产指令单"
        If e.DataRow IsNot Nothing Then            
            Dim Filter1 As String = "订单编号 = \'" & e.DataRow("订单编号") & "\'"
            e.Book.Marks("图片1") = "[&&" & ProjectPath & "RemoteFiles" & e.DataRow("图纸") & "]"           
        End If
End Select

模版中<图片1>的位置， 导出后引用的图纸没出现，出现了以下的内容
[&&E:\\销售管理（远程）\\RemoteFiles/图纸/邓启军/XSDD-1512-0040.png]

我把模板中的<图片1>更改为[&&E:\\销售管理（远程）\\RemoteFiles/图纸/邓启军/XSDD-1512-0040.png]，再导出后图片是可以正常显示的

这里面代码哪个地方有错误码？
--  作者：大红袍
--  发布时间：2015/12/30 17:09:00
--  

不能这样写。模板里写

 

[&&c:\\Images\\myfox.gif]

 

然后把图片拷贝替换，myfox.gif