For Each dr As DataRow In dt.sqlSelect("[启用] = 1 and [产品系列] = '空间研发'", "", "GKBox Desc")
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", "效果图")
For Each dWr As DataRow In dAt.sqlSelect("[ID] = 'BOX2401-001'And [分类] = '效果图'")
With wb.AddArticle("", System.Guid.NewGuid().ToString)
.AddImage( ww & dWr("视觉_产品"))
End With
Next
.AddTitle("h4", "项目清单")
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", "美陈细节")
For Each dWr As DataRow In dAt.sqlSelect("[ID] = 'BOX2401-001'And [分类] = '效果图'")
With wb.AddArticle("", System.Guid.NewGuid().ToString)
.AddImage( ww & dWr("视觉_产品"))
End With
Next
.AddTitle("h4", "施工细节")
For Each dWr As DataRow In dAt.sqlSelect("[ID] = 'BOX2401-001'And [分类] = '施工细节'")
With wb.AddArticle("", System.Guid.NewGuid().ToString)
.AddImage( ww & dWr("视觉_产品"))
End With
Next
End With
需求是按照代码顺序排版 实际是文字到了一起 图片在下面一起
此主题相关图片如下：企业微信截图_20240119104159.png
[此贴子已经被作者于2024/1/19 10:44:47编辑过]
加好友 
发短信
Post By：2024/1/19 10:44:00 [只看该作者]
