主题：求助：报表中引用图片列不显示

各位老师:一个表内有不良照片列，属性是远程数据，搭建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