|
If e.DataCol.Name = "片区" Then
Dim cns() As String = {"星期一","星期二","星期三","星期四","星期五","星期六","星期日"}
If e.NewValue = Nothing Then
For Each cn As String In cns
e.DataRow(cn) = Nothing
Next
e.DataRow("片区客户数") = Nothing
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
e.DataRow(cns(i)) = DataTables("客户数据").compute("count(片区)", filter & " and 固定时间 = '" & cns(i) & "'")
Next
e.DataRow("片区客户数") = DataTables("客户数据").compute("count(片区)", filter)
End If
End If
|
加好友 
发短信
Post By：2015/5/20 11:31:00 [显示全部帖子]
