以文本方式查看主题

-  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=190142)
--  作者：yifan3429
--  发布时间：2024/1/18 20:43:00
--  AddArticle循环无效
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", "效果图：</br>")
                .AddImage( ww & dr("视觉_产品")) 
                
                .AddTitle("h4", "项目清单：</br>") 
                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", "施工细节：</br>") 
                For Each dWr As DataRow In dAt.sqlSelect("[ID] = \'" & dr（"ID"） & "\'And [分类] = \'效果图\'", "", "视觉_产品 Desc") 
                    With wb.AddArticle("", dWr("ID")) 
                        .AddImage( ww & dWr("视觉_产品")) 
                    End With 
                Next
上面的代码循环无效 是子表的图片
            End With
--  作者：有点蓝
--  发布时间：2024/1/18 21:05:00
--  
               .AddTitle("h4", "施工细节：</br>") 
                For Each dWr As DataRow In dAt.sqlSelect("[ID] = \'" & dr（"ID"） & "\'And [分类] = \'效果图\'", "", "视觉_产品 Desc") 
                        .AddImage( ww & dWr("视觉_产品")) 
                Next
            End With