共6 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：AddArticle 排版顺序问题，
1楼
yifan3429 发表于：2024/1/19 10:44:00For 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编辑过]
2楼
有点蓝 发表于：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
3楼
yifan3429 发表于：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
表格还是到了最后 怎么控制呢
4楼
有点蓝 发表于：2024/1/19 11:19:00For 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
5楼
yifan3429 发表于：2024/1/19 12:09:00此主题相关图片如下：企业微信截图_20240119120651.png
空间造价
即刻空间价
单独这两行怎么加上颜色
6楼
有点蓝 发表于：2024/1/19 13:35:00http://www.foxtable.com/mobilehelp/topics/0063.htm
共6 条记录, 每页显示 10 条, 页签:
[1]