With wb.AddArticle("", dr("_identify"))
.AddTitle("h4", "研发项目：" & dr("ID") & dr("GKBox") & dr("产品名称"))
.AddTitle("h4", "设计思考")
.AddTitle("h2", dr("功能描述"))
.AddTitle("h4", "设计说明：</br>")
.AddTitle("h2", dr("设计说明"))
.AddTitle("h4", "产品买点")
.AddTitle("h2", dr("产品买点"))
.AddTitle("h4", "效果图：</br>")
.AddImage( ww & dr("视觉_产品"))
.AddTitle("h4", "项目清单：</br>")
With wb.AddTable("", "Table1")
.MergeCols = 2 '合并左边2列
Dim nms() As String = { "空间", "产品", "工艺说明", "计价方案", "备注"}
.Head.AddRow("空间", "产品", "工艺说明", "计价方案", "备注")
For Each dr1 As DataRow In dAt.sqlSelect("ID = '" & dr（"ID"） & "'and [分类] = '项目清单'")
.body.AddRow( dr1("GKBox"), dr1("Model"), dr1("工艺说明"), dr1("计价方案") , dr1("备注"))
Next
End With
.AddTitle("h4", "施工细节：</br>")
For Each dWr As DataRow In dAt.sqlSelect("[ID] = '" & dr（"ID"） & "'And [分类] = '效果图'", "", "视觉_产品 Desc")
With wb.AddArticle("", dWr("ID"))
.AddImage( ww & dWr("视觉_产品"))
End With
Next
上面的代码循环无效 是子表的图片
End With
.AddTitle("h4", "施工细节：</br>")
For Each dWr As DataRow In dAt.sqlSelect("[ID] = '" & dr（"ID"） & "'And [分类] = '效果图'", "", "视觉_产品 Desc")
.AddImage( ww & dWr("视觉_产品"))
Next
End With