以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于图片列的问题  (http://www.foxtable.com/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

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