If DataTables.Contains("网页_导航") = False Then '如果表C没有加载
DataTables.Load("网页_导航") '加载表C
End If
Dim b1 As String
wb.AddPageTitle("","pageheader","湖南城市之窗","全案产品选型库")
'For Each s As String In DataTables("网页_导航").getvalues("分类","[分类] = '按品牌查看'", "排序")
For Each s As String In DataTables("网页_导航").SQLgetvalues("分类","", "排序")
wb.InsertHTML("<h3 align='center' style='margin-top:10px'>" & s & "</h3>")
With wb.AddGrid("","g" & s)
For Each r As DataRow In DataTables("网页_导航").sqlSelect("分类='" & s & "'","", "产品数量 Desc")
With ExWeUI.WebUI.AddBadge("",r("产品数量"))
'.Square=True '显示为方型
.Attribute="style='background-color: rgb(169,169,169);color:rgb(248,248,255);'" '自定义背景色和文字颜色
b1 = .BuildHtml
End With
.Add("c2",r("标题")& b1, r("ico"), r("path"))
Next
End With
Next
e.WriteString(wb.Build)
'If DataTables.Contains("产品库_活动家具") = False Then '如果表C没有加载
'DataTables.Load("产品库_活动家具") '加载表C
'End If
'Dim dr As DataRow = DataTables("网页_导航").SQLFind("链接='" & e.Path & "' ")
'If dr IsNot Nothing Then
'wb.AddPageTitle("","ph1","城市之窗","" & dr("品牌")& " &产品选型库")
'wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)
'wb.AppendHTML("<script src='./weui/exweui.js' ></script>",True)
'With ExWeUI.WebUI.AddListGroup("","lst01",2)
'For Each r As DataRow In DataTables("产品库_活动家具").sqlSelect("产品系列 = '"& dr("标题") & "'")
''For Each r As DataRow In DataTables("产品库_活动家具").sqlSelect("产品系列 = '"& dr("品牌") & "'" OrElse "产品名称 = '"& dr("品牌") & "' ")
''For Each r As DataRow In DataTables("产品库_活动家具").DataRows
'With .AddList(r("产品系列"),r("商品图片"))
'With .LeftFooter
'.AddFoot("订货ID:"& r("产品_定货ID")).Attribute = "style='color:red;font-size:9px'"
'.AddFoot("¥ "&r("单价")).Attribute = "style='color:red;font-size:10px'"
'.AddFoot("¥ 9999999.00").Attribute = "style='font-size:8px;text-decoration: line-through;'"
'End With
'.RightFooter.AddFoot("购买").Attribute = " style='color:blue;'"
'.RightFooter.AddFoot("详情").Attribute = " style='color:blue;'"
''.RightFooter.AddFoot("标签:11.22.33.44.55.66.77.88.99").Attribute = "style='color:MediumBlue;font-size:10px'End With
'Next
'wb.InsertHTML(.BuildHtml)
'wb.InsertHTML(ExWeUI.WebUI.AddBackTop("bt01").BuildHtml)
'wb.AppendHTML("<script>initExWeUI();</script>")
'End With
'e.WriteString(wb.Build)
'End If
'End Select
r("path"))黄色部分是动态的合成怎么跳转到明细页呢 请教老师
[此贴子已经被作者于2022/2/13 23:04:49编辑过]