If e.DataCol.Name = "保洁员" Then
Dim cns() As String = {"一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月"}
Dim cns1 () As String = { "一月_家数","二月_家数","三月_家数","四月_家数","五月_家数","六月_家数","七月_家数","八月_家数", "十月_家数","十一月_家数","十二月_家数" }
Dim cns2 () As String = { "一月_业绩","二月_业绩","三月_业绩","四月_业绩","五月_业绩","六月_业绩","七月_业绩","八月_业绩", "十月_业绩","十一月_业绩","十二月_业绩" }
If e.NewValue = Nothing Then
For Each cn As String In cns
e.DataRow(cn) = Nothing
Next
Else
Dim filter As String = "(保洁员 = '" & e.DataRow("保洁员") & "' or 保洁员 like '%," & e.DataRow("保洁员") & "' or 保洁员 like '%," & e.DataRow("保洁员") & ",%' or 保洁员 like '" & e.DataRow("保洁员") & ",%')"
For i As Integer = 0 To cns.Length - 1
Dim d As Date = new Date(Date.Today.Year, i+1, 1)
e.DataRow(cns1(i)) = DataTables("派工表").compute("count(*)", filter & " and 日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#")
e.DataRow(cns2(i)) = DataTables("派工表").compute("sum(人均价)", filter & " and 日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#")
Next
End If
End If
加好友 
发短信
Post By：2015/4/10 14:03:00 [只看该作者]
此主题相关图片如下：qq图片20150410140610.png
