以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]获取全员表的所有姓名  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=112993)
--  作者：188802386
--  发布时间：2018/1/6 12:06:00
--  [求助]获取全员表的所有姓名
如何让全员业绩表的姓名，全部增加到all业绩表中，但是 部门名称和职称名称需要在“users”表中获取，我感觉是红色部分出现的问题，请高手解决一下，谢谢

Dim g1 As New GroupTableBuilder("全员业绩表", DataTables("员工业绩表"))
g1.Groups.AddDef("置业顾问","姓名")
g1.Totals.AddDef("已收佣金","业绩")
g1.Build()
Dim dtt As DataTable = DataTables("all业绩表")
dtt.DataRows.Clear
Dim filter1 As String = "姓名 = 姓名"
For Each drr As DataRow In DataTables("users").Select(filter1)
    Dim ndrr As DataRow = dtt.AddNew
    ndrr("姓名") = drr("姓名")
    ndrr("部门") = drr("部门名称")
    ndrr("职称") = drr("职称名称")
    ndrr("业绩") = DataTables("全员业绩表").Compute("sum(业绩)","[姓名] = \'" & drr("姓名") & "\'")
Next
MainTable = Tables("all业绩表")
[此贴子已经被作者于2018/1/6 12:06:01编辑过]
--  作者：有点蓝
--  发布时间：2018/1/6 14:09:00
--  
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业绩表")