以文本方式查看主题

-  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=123213)

--  作者:cxmxjwlmq
--  发布时间:2018/8/10 0:49:00
--  求助:报表中引用图片列不显示

各位老师:一个表内有不良照片列,属性是远程数据,搭建FTP进行管理,上传下载没有问题。我在一个窗口中绑定两个副本,通过查询按钮按照查询条件生成两个窗口表,在窗口中的导出数据按钮代码如下:

Dim dt As Table = Tables("制造数据统计_table1")
Dim du As Table = Tables("制造数据统计_table2")
    Dim nms() As String = {"日期","编号","代号","序号","不良描述","检验岗1","不良图片"} \'要导出的列名
    Dim caps() As String = {"日期","编号","代号","序号","不良描述","检验岗1","不良图片"} \'对应的列标题 
    Dim szs() As Integer = {40,40,40,40,200,40,60,255} \'对应的列宽 
    Dim Book As New XLS.Book \'定义一个Excel工作簿 
       Book.Sheets.Add( "当日报工信息" )        \'增加一个工作表
       Book.Sheets.Add( "本月累计报工明细"   )       \'增加一个工作表
    Dim Sheet As XLS.Sheet = Book.Sheets("当日报工信息") \'引用工作簿的第一个工作表
    Dim Sheet1 As XLS.Sheet = Book.Sheets( "本月累计报工明细"   ) \'引用工作簿的第二个工作表

。。。。。
       For r As Integer = 0 To dt.Rows.Count - 1   \'填入数据
        For c As Integer = 0 To nms.length -1
        If dt.cols(nms(c)).isdate Then
              If dt.rows(r)(nms(c)) = Nothing Then
                 Sheet(r + 2, c).Style = bt
              Else
                  Sheet(r + 2, c).Style = st
              End If
               Sheet(r + 2, c).Value = dt.rows(r)(nms(c))
           End If
           Sheet(r + 2, c + 2).Style = Style              \'从第三行第一列开始调用新样式:居中,带边框
           Sheet(r + 2, 9).Style = bt                     \'从第三行第16列开始调用新样式:居左,无边框
           Sheet(r + 2, 10).Style = bt                    \'从第三行第16列开始调用新样式:居左,无边框
           Sheet(r + 2, c).Value = dt.rows(r)(nms(c))
           Sheet(r + 2, 0).Value = r + 1
           Sheet(r + 2, 0).Style = Style                   \'从第三行第一列开始调用新样式:居中,带边框
        Next
     Next
。。。。。

         Sheet1.Cols.Insert(0)        \'在最前面插入一列
         Sheet1.Cols(0).Width = 5     \'设置第1列的宽度
         Sheet1.Rows.Frozen = 2       \'冻结前二行
   Book.Sheets.RemoveAt(0)            \'删除第一个工作表
   Book.Save( "D:\\质量管理系统\\报工\\车辆报工信息.xls" )
   Dim Proc As New Process
   Proc.File = "D:\\质量管理系统\\报工\\车辆报工信息.xls" 
   Proc.Start()

我想要的效果是:报表每行的不良描述后一行,是不良照片,但不知道代码少编写了还是不对,图片没有出现,

  导出的报表中,图片一栏是名字,见附件照片

 

请各位老师指教!

谢谢!

 


图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20180810000157.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2018/8/10 8:52:00
--  

1、插入图片这样

 

http://www.foxtable.com/webhelp/scr/1149.htm

 

2、如果是ftp图片,你还得先下载下来

 

http://www.foxtable.com/webhelp/scr/1410.htm