Foxtable(狐表)用户栏目专家坐堂 → [求助]获取全员表的所有姓名


  共有1738人关注过本帖树形打印复制链接

主题:[求助]获取全员表的所有姓名

帅哥哟,离线,有人找我吗?
188802386
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:629 积分:4921 威望:0 精华:0 注册:2014/2/25 15:50:00
[求助]获取全员表的所有姓名  发帖心情 Post By: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编辑过]

 回到顶部