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
Next
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)
.AddFoot("提成金额:"& aaa4)
End With
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) 没反应
加好友 
发短信
Post By：2021/8/5 15:06:00 [显示全部帖子]
此主题相关图片如下：qq浏览器截图20210805150444.png
