With wb.AddPanelGroup("","pg1","销售合计列表")
For Each pr As DataRow In dt.DataRows
With .Add("pn"& pr("店名"),pr("店名"),"提成金额:"& pr("提成实收金额") & " | 实收金额:"& pr("实收金额")& " | 营业员:"& pr("营业员"),"./images/购物车.gif","http://www.foxtable.com")
.Badge = pr("店名")
'.AddFoot("提成金额:"& pr("提成实收金额"))
'.AddFoot("实收金额:"& pr("实收金额"))
End With
Next
dim aaa as double = DataTables("Users").sqlcompute("sum(提成金额)","Name='"& e.Cookies("username") &"' " )
With .Add("pn1","合计","提成金额:"& aaa ./images/购物车.gif","http://www.foxtable.com")
.Badge = pr("店名")
'.AddFoot("提成金额:"& aaa)
End With
End With
End Select