wb2.AppendHTML("<link rel='stylesheet' href='./lib/exweui.css'/>",True)
wb2.AppendHTML("<script src='./lib/exweui.js' ></script>",True)
...
..... where 商品备注 = '可兑换'"
Dimdt As DataTable = cmdExecuteReader
With ExWeUI.WebUI.AddCarousel("","sld1")
For Each pr As DataRow In dt.DataRows
'Dim d01 As DataRow= DataTables("积分兑换商品").SQLFind("商品备注='可兑换' ")
'If d01 IsNot Nothing AndAlso d01("商品备注") = "可兑换"
.AddImage("img/"&pr("图片一")&"")
.AddImage("img/"&pr("图片二")&"")
.AddImage("img/"&pr("图片三")&"")
.AddImage("img/"&pr("图片四")&"")
wb2.InsertHTML( "page2" ,"<div class='card'> " & .BuildHtml & " <div class='container'><span style='color:#f54707 '>兑换积分:50</style> <br> <span style='height:40px;width:80%;float:left;font-size:13px;color:#000000'> 不会太高过若过若过若过若个若个若个若个若个若个若个若个若过若个若过过过过过热 </span> <button style='height:30px;width:20%;border-radius:15px 0px 0px 15px;border: 0px;background-color:#f5c1ad; color:#f54707;'>去详情></button> <br>555555555555 <button style='height:40px;width:30%;border-radius:15px 0px 0px 15px;border: 0px;background-color:#ffb86f;color:#ffffff;'>加入<br>购物车</button><button style='height:40px;width:30%;border-radius:0px 15px 15px 0px;border: 0px;background-color:#ff3c37;color:#ffffff;'>兑换<br>购买</button> </div></div>")
Next
'End If
End With
wb2.AppendHTML(" <script>initExWeUI();</script> ")
这个多行多个显示什么不对
加好友 
发短信
Post By：2021/8/16 21:33:00 [只看该作者]
此主题相关图片如下：screenshot_20210816_215939_com.tencent.mm.jpg
