以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于图片列的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81922)
--  作者：husl
--  发布时间：2016/3/8 21:46:00
--  [求助]关于图片列的问题
狐爸好：
         想请教下如何用照片名和订单号对应每行显示图片
比如我 有二个订单：
   订单号为  123  和   321，我们要求业务员把每个订单的产品拍照上传到FTP上。
我在表格上做了一个图片列，是从FTP读取的。现在我们要求业务员把照片名字改为和订单号一样的，123  和  321.
虽然照片和订单号对应了。但是他是在FTP上，不像数据或者字符一样可以用表达式生成列。

请教如何能够做到自动对应？谢谢了！



     
--  作者：大红袍
--  发布时间：2016/3/8 22:12:00
--  

图片列的内容的值为 /ftp路径/123.jpg 不就行？

 

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

 
--  作者：husl
--  发布时间：2016/3/9 14:31:00
--  
。。问题是我想让他自动填入。
   我这样写了一个
If e.DataCol.Name = "订单号"  Then
    Dim dr As DataRow
 Dim Filter As String
    Filter = "[订单号] = \'" & e.DataRow("订单号") & "\'"  
    dr = DataTables("订单明细表").Find(Filter ) 
If dr IsNot Nothing Then
 e.DataRow("订单照片") = dr("订单号")
End If
End  If
但是他只能是显示出来数据为订单号。后缀如何加上？JPG
--  作者：大红袍
--  发布时间：2016/3/9 14:51:00
--  
If e.DataCol.Name = "订单号"  Then
    e.DataRow("订单照片") = "/" & dr("订单号") & ".jpg"
End  If
--  作者：husl
--  发布时间：2016/3/9 15:09:00
--  
If e.DataCol.Name = "订单号"  Then

    e.DataRow("订单照片") = "/" & e.DataRow("订单号") & ".jpg"
End  If

我这么写可以啦。。。万分感谢！！！！！