- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 两个图片问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=99755)
-- 发布时间：2017/4/26 11:35:00
-- 两个图片问题
1.按照帮助EXCEL图片引用
表示打印第二个图片。
再例如打印第三个图片：
[&照片&2,3,3,150,159]
但是如果我不确定要增加几幅图片，生成EXCEL的时候想在【图片列】里全部生成，应该怎么写代码了？
2.“A客户”有一个订单编号，比如是00001， 下面有7个子订单，关联起来的话每个子订单的订单编号也是00001， 子订单里对应的图片也是相同的，有没有什么办法在 第一个子订单里插入了图片以后， 其他6个子订单也生成同样的图片？这样就不用一个一个的加，很麻烦的。谢谢
-- 发布时间：2017/4/26 11:39:00
--
1、全部生成后，在excel里面怎么排列怎么显示？需要编写代码处理，请上传实例。
2、如果你的图片都是一样的，那，你的图片列，应该放在父表，而不应该放在子表。
-- 发布时间：2017/4/26 11:58:00
--
问题1的例子如下， 想把图片生成EXCEL的时候图片列里的图片全部生成。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2017/4/26 12:43:00
--
生成一个临时表，再导出excel
Dim dt As Table = Tables("表A")
Dim dtb As New DataTableBuilder("临时")
dtb.AddDef("订单编号", Gettype(String), 32)
dtb.AddDef("图片", Gettype(String), 999)
dtb.Build()
Dim t As Table = Tables("临时")
t.Cols("图片").DataCol.ExtendType = ExtendTypeEnum.Images
t.Cols("图片").DataCol.DefaultFolder = dt.Cols("图片").DataCol.DefaultFolder
For Each r As Row In dt.Rows
Dim nr As Row = t.addnew
nr("订单编号") = r("订单编号")
Dim lines As List(of String) = r.DataRow.Lines("图片")
If lines.count > 0 Then nr("图片") = lines(0)
For i As Integer = 1 To lines.count-1
nr = t.AddNew
nr("订单编号") = r("订单编号")
nr("图片") = lines(i)
Next
Next
MainTable=t