Dim lst As List(of String) = dt当天.getvalues("业绩店名")
If lst IsNot Nothing Then
For Each a当天 As String In dt当天.getvalues("业绩店名")
If ddr IsNot Nothing AndAlso ddr("Group") ="店长"
Dim aaa01 As Double = dt当天.compute("sum(提成业绩)" ,"业绩店名='" & a当天 & "' " )
.AddTitle("h02"," <a href=""当天业绩.htm""> <i> <button style='height:40px;width:30%;border-style: none none none none;width: 32.5%; top: 39.4%;'>当天业绩<br>"& aaa01 & "</button></i></a>")
End If
If ddr IsNot Nothing AndAlso ddr("Group") ="员工"
Dim aaa02 As Double = dt当天.compute("sum(提成主销业绩)" ,"业绩店名='" & a当天 & "'And 身份证姓名 = '" & e.Cookies("username") & "' " )
Dim aaa03 As Double = dt当天.compute("sum(提成副销业绩)" ,"业绩店名='" & a当天 & "'And 身份证姓名2 = '" & e.Cookies("username") & "' " )
.AddTitle("h02"," <i> <button style='height:40px;width:30%;border-style: none none none none;width: 32.5%; top: 39.4%;'>当天业绩<br>"& aaa02+aaa03 & "</button></i>")
End If
Next
Else
.AddTitle("h02"," <a href=""当天业绩.htm""> <i> <button style='height:40px;width:30%;border-style: none none none none;width: 32.5%; top: 39.4%;'>当天业绩<br>0</button></i></a>")
End If
没用
[此贴子已经被作者于2022/1/8 18:23:45编辑过]
加好友 
发短信
Post By：2022/1/8 16:46:00 [只看该作者]
