共5 条记录, 每页显示 10 条, 页签: [1]

[浏览完整版]

标题：循环/报错健值重复

1楼

yifan3429 发表于：2024/1/17 16:43:00

For Each dr As DataRow In dt.sqlSelect("[启用] = 1 and [产品系列] = '展厅新品'", "", "GKBox") '

With wb.AddArticle("", dr("ID"))

.AddTitle("h4", "1.空间：" & dr("GKBox"),)

.AddTitle("h4", "2.产品系列：" & dr("Model"))

.AddImage( ww & dr("视觉_产品"))

.AddTitle("h1", dr("Part"))

.AddTitle("h4", "3.产品名称：")

.AddTitle("h3", dr("产品名称") & dr("产品俗称"))

.AddTitle("h4", "4.设计说明：")

.AddTitle("h2", dr("设计说明"))

.AddTitle("h4", "5.产品买点")

.AddTitle("h2", dr("产品买点"))

.AddTitle("h4", "6.计价规则：")

.AddTitle("h2", dr("计价方案"))

.AddTitle("h4", "7.工艺说明")

.AddTitle("h2", dr("工艺说明"))

End With

With wb.AddListGroup("", "s1", "8.主材详情")

.Add("ls5", "主材详情", "点击链接", ww & dr("视觉_详情")).Badge = "新"

.Add("ls6", "工艺详情", "点击链接", dr("视觉_全景")).Badge = "新"

End With

With wb.AddListGroup("", "s2", "9.设计效果")

.Add("ls5", "产品详情", "点击链接", ww & dr("视觉_详情")).Badge = "新"

.Add("ls6", "设计全景", "点击链接", dr("视觉_全景")).Badge = "新"

End With

With wb.AddListGroup("", "s3", "10.品牌官网")

.Add("ls5", "京东官网", "点击链接", dr("官网商城_京东")).Badge = "新"

.Add("ls6", "天猫官网", "点击链接", dr("官网商城_天猫")).Badge = "新"

End With

wb.AppendHTML(" ")

一条数据正常多条就会报错键值重复

[此贴子已经被作者于2024/1/17 16:43:15编辑过]

2楼

有点蓝 发表于：2024/1/17 17:17:00

控件不能有重复的ID

With wb.AddListGroup("", "s1" & dr("ID"), "8.主材详情")

.Add("ls5" & dr("ID"), "主材详情", "点击链接", ww & dr("视觉_详情")).Badge = "新"

.Add("ls6" & dr("ID"), "工艺详情", "点击链接", dr("视觉_全景")).Badge = "新"

End With

With wb.AddListGroup("", "s2" & dr("ID"), "9.设计效果")

.Add("ls7" & dr("ID"), "产品详情", "点击链接", ww & dr("视觉_详情")).Badge = "新"

.Add("ls8" & dr("ID"), "设计全景", "点击链接", dr("视觉_全景")).Badge = "新"

End With

3楼

yifan3429 发表于：2024/1/17 18:47:00

Dim s11 As Integer = 1

For Each dr As DataRow In dt.sqlSelect("[启用] = 1 and [产品系列] = '展厅新品'", "", "GKBox")

' wb.AppendHTML("--------------- ----------------")

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.产品名称：")

.AddTitle("h3", dr("产品名称") & dr("产品俗称"))

.AddTitle("h4", "4.设计说明：")

.AddTitle("h2", dr("设计说明"))

.AddTitle("h4", "5.产品买点")

.AddTitle("h2", dr("产品买点"))

.AddTitle("h4", "6.计价规则：")

.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(" ")

有色部分还是会报错无解求助

4楼

有点蓝 发表于：2024/1/18 8:35:00

说明还是重复了，请参考2楼用法使用，如果每行dr("ID")会有重复值，改为使用dr("_identify")

5楼

chnfo 发表于：2024/1/18 22:19:00

如果你的ID使用UUID的生成方法，那重复的概率＝0。guid.newguid.tostring

[此贴子已经被作者于2024/1/18 22:18:57编辑过]

共5 条记录, 每页显示 10 条, 页签: [1]