Dim s11 As Integer = 1
For Each dr As DataRow In dt.sqlSelect("[启用] = 1 and [产品系列] = '展厅新品'", "", "GKBox")
' wb.AppendHTML("---------------<br/>----------------")
s11 = s11 + 1
Dim s12 As Integer = s11 + 1
Dim s13 As Integer = s12 + 1
Dim s14 As Integer = s13 + 1
With wb.AddArticle("", s14.ToString)
.AddTitle("h4", "1.空间 ：" & dr("GKBox"),)
.AddTitle("h4", "2.产品系列 ：" & dr("Model"))
.AddImage( ww & dr("视觉_产品"))
.AddTitle("h1", dr("Part"))
.AddTitle("h4", "3.产品名称：</br>")
.AddTitle("h3", dr("产品名称") & dr("产品俗称"))
.AddTitle("h4", "4.设计说明：</br>")
.AddTitle("h2", dr("设计说明"))
.AddTitle("h4", "5.产品买点")
.AddTitle("h2", dr("产品买点"))
.AddTitle("h4", "6.计价规则：</br>")
.AddTitle("h2", dr("计价方案"))
.AddTitle("h4", "7.工艺说明")
.AddTitle("h2", dr("工艺说明"))
End With
' MessageBox.Show(s12.ToString)
Dim ms11 As String = s11.ToString
Dim cs11 As String = ms11 & "c1"
Dim cs12 As String = ms11 & "c2"
With wb.AddListGroup("", ms11 , "8.主材详情")
.Add(cs11, "主材详情", "点击链接", ww & dr("视觉_详情")).Badge = "新"
.Add(cs12, "工艺详情", "点击链接", dr("视觉_全景")).Badge = "新"
End With
' Dim ms12 As String = s12.ToString
' Dim cs21 As String = ms12 & "c3"
' Dim cs22 As String = ms12 & "c4"
' With wb.AddListGroup(ms12, ms12, "9.设计效果")
' .Add(cs21, "产品详情", "点击链接", ww & dr("视觉_详情")).Badge = "新"
' .Add(cs22, "设计全景", "点击链接", dr("视觉_全景")).Badge = "新"
' End With
' Dim ms13 As String = s13.ToString
' Dim cs31 As String = ms13 & "c1"
' Dim cs32 As String = ms13 & "c2"
' With wb.AddListGroup("", s13.ToString, "10.品牌官网")
' .Add(cs31, "京东官网", "点击链接", dr("官网商城_京东")).Badge = "新"
' .Add(cs32, "天猫官网", "点击链接", dr("官网商城_天猫")).Badge = "新"
' End With
' wb.AppendHTML("<br/>")
Next
有色部分还是会报错 无解 求助
加好友 
发短信
Post By：2024/1/17 16:43:00 [只看该作者]
