手机订单 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.Path

Case "test.htm"

Dim wb As New WeUI

Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."

With wb.AddPanelGroup("","pg1","图文组合列表")

.Add("pn1","标题一",txt,"./images/button.png","http://www.foxtable.com") '超链接

With .Add("pn2","标题二",txt,"./images/search.png") '带子链接

.AddFoot("文字来源 : xxxxx")

.AddFoot("时间:" & Date.Today)

End With

wb.AppendHTML("<style>#pn2 ul{list-style-type: none;} #pn2 ul li{list-style-type: none;float:none;padding-top:5px;color:red}</style>",True)

e.WriteString(wb.Build) '生成网页

End Select

For Each a As String In dt.getvalues("店名")

Dim aaa As Double = dt.compute("sum(提成实收金额)","店名='" & a & "' " )

Dim aaa1 As Double = dt.compute("sum(实收金额)","店名='" & a & "' " )

Dim aaa2 As Double = dt.compute("sum(提成业绩)","店名='" & a & "' " )

Dim aaa3 As Double = dt.compute("Count(提成实收金额)","店名='" & a & "' And 提成实收金额>0 " )

If ddr IsNot Nothing AndAlso aaa3 > 0

With .Add("pn"& a,a,"提成:"& aaa & " | 实收:"& aaa1 & " | 业绩:"& aaa2,"./images/购物车合计.gif","http://www.foxtable.com")

.Badge = aaa3

.AddFoot("提成金额:22")

.AddFoot("实收金额:25")

.AddFoot("提成金额:53")

.AddFoot("实收金额:53")

End With

End If

Dim aaa4 As Double = dt.compute("sum(提成实收金额)")

Dim aaa5 As Double = dt.compute("sum(实收金额)" )

Dim aaa6 As Double = dt.compute("sum(提成业绩)" )

With .Add("pn1","合计","提成金额:"& aaa4 & " | 实收:"& aaa5 & " | 业绩:"& aaa6,"./images/购物车合计.gif")

.AddFoot("提成金额:"& aaa4)

End With

wb.AppendHTML("<style>#pn ul{List-style-type: none;} #pn ul li{List-style-type: none;float:none;padding-top:5px;color:red}</style>",True)

wb.AppendHTML("<style>#pn1 ul{List-style-type: none;} #pn1 ul li{List-style-type: none;float:none;padding-top:5px;color:red}</style>",True)

End Select

wb.AppendHTML("<style>#pn ul{List-style-type: none;} #pn ul li{List-style-type: none;float:none;padding-top:5px;color:red}</style>",True) 没反应

wb.AppendHTML("<style>ul{List-style-type: none;} ul li{List-style-type: none;float:none;padding-top:5px;color:red}</style>",True)

此主题相关图片如下：qq浏览器截图20210805161618.png

wb.AppendHTML("<style>#pg1 ul{List-style-type: none;} #pg1 ul li{List-style-type: none;float:none;padding-top:5px;color:red}</style>",True)

此主题相关图片如下：qq浏览器截图20210805164348.png

什么两个和三个换行

不需要换行的合并到一个字符串里输出

主题：手机订单