AddArticle 排版顺序问题， - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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 [分类] = '效果图'")

.AddImage( ww & dWr("视觉_产品"))

.AddTitle("h4", "项目清单")

End With

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("备注"))

End With

With wb.AddArticle("", dr("_identify") & "_2")

.AddTitle("h4", "美陈细节")

For Each dWr As DataRow In dAt.sqlSelect("[ID] = 'BOX2401-001'And [分类] = '效果图'")

.AddImage( ww & dWr("视觉_产品"))

.AddTitle("h4", "施工细节")

For Each dWr As DataRow In dAt.sqlSelect("[ID] = 'BOX2401-001'And [分类] = '施工细节'")

.AddImage( ww & dWr("视觉_产品"))

End With

主题：AddArticle 排版顺序问题，