dtt.DataCols.Add("合计",Gettype(Double),"提成主销业绩")
Dim drs As List(of DataRow) = dtt.Select("","合计 desc")
Dim idx As Integer
For i As Integer = 0 To drs.count - 1
If ddr IsNot Nothing AndAlso ddr("Group") = "员工"
If drs(i)("身份证姓名") = e.Cookies("username") Then
idx = i
Exit For
End If
End If
If ddr IsNot Nothing AndAlso ddr("Group") = "店长"
If drs(i)("业绩店名") = ddr("账号企业名") Then
idx = i
Exit For
End If
End If
Next
For i As Integer = 0 To drs.count - 1
dr = drs(i)
Dim aaa01 As String
If ddr IsNot Nothing AndAlso ddr("Group") = "员工"
If i = idx Or i = idx -1 Or i = idx +1 Then
aaa01 = dr("提成主销业绩")
Else If i > idx +1 Then
aaa01 = "不削一顾"
Else If i < idx -1 Then
aaa01 = "望尘莫及"
End If
End If
If ddr IsNot Nothing AndAlso ddr("Group") = "店长"
If i = idx Then
aaa01 = dr("提成主销业绩")
Else
aaa01 = "望尘莫及"
End If
End If
加好友 
发短信
Post By：2022/4/12 11:18:00 [只看该作者]
