Dim g1 As New GroupTableBuilder("全员业绩表", DataTables("员工业绩表"))
g1.Groups.AddDef("置业顾问","姓名")
g1.Totals.AddDef("已收佣金","业绩")
g1.Build()
Dim dtt As DataTable = DataTables("all业绩表")
dtt.DataRows.Clear
For Each dr1 As DataRow In DataTables("全员业绩表").DataRows
Dim ndrr As DataRow = dtt.AddNew
ndrr("姓名") = dr1("姓名")
ndrr("业绩") = dr1("已收佣金")
Dim dr2 As DataRow = DataTables("users").Find("[姓名] = '" & dr1("姓名") & "'")
If dr2 IsNot Nothing Then
ndrr("部门") = dr2("部门名称")
ndrr("职称") = dr2("职称名称")
End If
Next
MainTable = Tables("all业绩表")
加好友 
发短信
Post By：2018/1/6 14:09:00 [显示全部帖子]
