-- 作者: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
|