以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  插入图片  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=122555)
--  作者：BATASC750206
--  发布时间：2018/7/27 20:27:00
--  插入图片
老师您好！
     请问如何设置产品对应图片，图片要在指定列的单元格内显示出图片，而不是显示图片名称？
--  作者：有点蓝
--  发布时间：2018/7/27 20:59:00
--  
参考：http://www.foxtable.com/webhelp/scr/1493.htm
--  作者：BATASC750206
--  发布时间：2018/7/28 14:24:00
--  
老师：我问的是产品的图片要直接在表格的单元格显示出来
--  作者：有点蓝
--  发布时间：2018/7/28 14:30:00
--  
2楼的方法就是，需要写代码绘制
--  作者：BATASC750206
--  发布时间：2019/1/22 11:16:00
--  
请问如何按产品编号自动引用图片？
--  作者：有点甜
--  发布时间：2019/1/22 11:23:00
--  
以下是引用BATASC750206在2019/1/22 11:16:00的发言：
请问如何按产品编号自动引用图片？

 

1、你的图片放在什么位置？

 

2、根据编号，从对应图片文件夹引用图片过来？

 

3、例子发上来测试。
--  作者：BATASC750206
--  发布时间：2019/1/22 11:28:00
--  
Attachments文件夹内
--  作者：有点甜
--  发布时间：2019/1/22 12:02:00
--  
以下是引用BATASC750206在2019/1/22 11:28:00的发言：
Attachments文件夹内

 

根据什么规则？直接 编号.jpg 这样？

 

如果是，直接加入一列表达式列，设置公式  编号 + \'.jpg\'

 

然后把列设置成图片列，即可。
--  作者：BATASC750206
--  发布时间：2019/1/22 12:30:00
--  

If e.DataCol.name = "产品编号" Then
    Dim ls As new List(Of String)
    For Each f As String In FileSys.GetFiles(ProjectPath & "attachments/")
        If FileSys.GetName(f) = e.DataRow("产品编号") & ".jpg" Then
            ls.Add(FileSys.GetName(f))
            Exit For
        End If
    Next
    e.DataRow.lines("图片") = ls
End If

这个是不是还要加一段什么代码？

 
--  作者：有点甜
--  发布时间：2019/1/22 12:32:00
--  

不需要加代码的。

 

直接加入一列表达式列，设置公式  产品编号 + \'.jpg\'

 

然后把列设置成图片列，即可。