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

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  AddArticle 排版顺序问题，  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=190147)

--  作者：有点蓝
--  发布时间：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: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 13:35:00
--
http://www.foxtable.com/mobilehelp/topics/0063.htm