|
If e.DataCol.name = "年度" OrElse e.DataCol.name = "操作人储备业绩" Then
If e.DataRow.Isnull("年度") = False AndAlso e.DataRow.Isnull("操作人储备业绩") = False Then
'不一样
Dim filter As String
If e.DataRow("部门") = "设计部"
filter = "店面 = '" & e.DataRow("店面") & "' and 设计师 = '" & e.DataRow("操作人储备业绩") & "'"
Else
filter = "店面 = '" & e.DataRow("店面") & "' and 市场部 = '" & e.DataRow("操作人储备业绩") & "'"
End If
For k As Integer = 1 To 12
Dim f As Date = new Date(val(e.DataRow("年度")), k, 1)
Dim sum As Integer = DataTables("峰和设计部").compute("sum(预签金额)", filter & " and 操作性 = '预签' and 预签时间 >= #" & f & "# and 预签时间 < #" & f.addmonths(1) & "#")
e.DataRow("M" & k) = sum
Next
Else
For k As Integer = 1 To 12
e.DataRow("M" & k) = Nothing
Next
End If
End If
|
加好友 
发短信
Post By：2018/4/8 23:05:00 [显示全部帖子]
