- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- AddArticle 排版顺序问题， (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190147)
-- 发布时间：2024/1/19 10:44:00
-- AddArticle 排版顺序问题，
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编辑过]
-- 发布时间：2024/1/19 10:55:00
--
.AddTitle("h4", "美陈细节")
For Each dWr As DataRow In dAt.sqlSelect("[ID] = \'BOX2401-001\'And [分类] = \'效果图\'")
.AddImage( ww & dWr("视觉_产品"))
Next
.AddTitle("h4", "施工细节")
For Each dWr As DataRow In dAt.sqlSelect("[ID] = \'BOX2401-001\'And [分类] = \'施工细节\'")
.AddImage( ww & dWr("视觉_产品"))
Next
-- 发布时间：2024/1/19 11:16:00
--
.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
表格还是到了最后 怎么控制呢
-- 发布时间：2024/1/19 11:19:00
--
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("视觉_产品"))
Next
.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("备注"))
Next
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("视觉_产品"))
Next
.AddTitle("h4", "施工细节")
For Each dWr As DataRow In dAt.sqlSelect("[ID] = \'BOX2401-001\'And [分类] = \'施工细节\'")
.AddImage( ww & dWr("视觉_产品"))
Next
End With
Next
-- 发布时间：2024/1/19 12:09:00
--
此主题相关图片如下：企业微信截图_20240119120651.png
空间造价
即刻空间价
单独这两行怎么加上颜色
-- 发布时间：2024/1/19 13:35:00
--
http://www.foxtable.com/mobilehelp/topics/0063.htm