各位老师:一个表内有不良照片列，属性是远程数据，搭建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
加好友 
发短信
Post By：2018/8/10 0:49:00 [只看该作者]
