Select Case e.DataCol.Name
Case "投资金额","业务员"
If e.DataRow.IsNull("业务员") = False Then
Dim dr As DataRow = DataTables("工资表").Find("姓名='" & e.DataRow("业务员") & "'")
If dr Is Nothing Then
dr = DataTables("工资表").AddNew()
dr("姓名") = e.DataRow("业务员")
End If
dr("个人业务汇总") = e.DataTable.Compute("sum(投资金额)","业务员='" & e.DataRow("业务员") & "'")
End If
End Select
Select Case e.DataCol.Name
Case "投资金额","所属团队"
If e.DataRow.IsNull("所属团队") = False Then
DataTables("工资表").ReplaceFor("团队业务汇总", e.DataTable.Compute("sum(投资金额)","所属团队='" & e.DataRow("所属团队") & "'"),"所属团队='" & e.DataRow("所属团队") & "'")
End If
End Select
加好友 
发短信
Post By：2016/12/24 14:21:00 [显示全部帖子]
