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
如果 dt当天.getvalues("业绩店名")是空的就显示下面这段代码
'.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>")