主题：统计的问题

有一个“稿件”表库，我需要根据这个库，按单位计算本单位作者的稿费，并根据单位内部考核要求，计算出每位作者的稿费在本单位中的占比，以此来计算他的得分。

由于一个稿件多人稿件时，多个作者放在一个格子里，该如何统计呢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:投稿系统.table

同一篇稿件，多个作者，稿费要按人头

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:单位1考核情况表.xlsx

平均分

嗯，增加一张作者信息表，每位作者对应了一个单位。

因为写稿是“编辑部”五位作者“编辑部作者1-编辑部作者5”的主要工作，他们每个月的考核得分为：“稿费占比*20”与“推广得分”之和。

所以需要：

一、统计稿费占比时，只统计“编辑部”所有作者

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:投稿系统.table

的稿费占比。

二、统计出的占比能否放在固定的表“考核”表中的“占比”。

三、如果可以，稿件在多个作者合作时，在计算占比时，稿费只由“编辑部”的作者（编辑部作者1-编辑部作者5）分配稿费：

1、如果全是编辑部的作者，既“编辑部作者1-编辑部作者5”，大家平均分配稿费。

2、如果作者有其他单位的作者，在计算占比时，稿费也是按照“编辑部”作者的人数来分配，其他单位的作者不分配稿费。

统计放在固定表试了很久啊，没有哪里说到，搞了一个多星期。

不知道您这代码有没有测试，我输入进去是有错误的

此主题相关图片如下：qq图片20200318221844.png

For Each rr As Row In Tables("统计表1").rows

    Dim drr As DataRow = DataTables("考核").Find("姓名='" & rr("姓名") & "'")

    If drr  IsNot Nothing Then

        drr("比例") = rr("占比")

    End If

Next

代码的错误已经找出来了，我的问题是，我要把临时表  统计1  中形成的占比  移到  考核  表中， 是不可以的是吧，，，返回显示不存在  占比 列

此主题相关图片如下：qq浏览器截图20200319214834.png