求助：如何实现稿费统计表中名字列自动获取稿件投稿中的名字列，然后根据名字列自动查询并计算稿费统计下的各项信息数据。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助：如何实现稿费统计表中名字列自动获取稿件投稿中的名字列，然后根据名字列自动查询并计算稿费统计下的各项信息数据。

共有4256人关注过本帖树形打印复制链接主题：求助：如何实现稿费统计表中名字列自动获取稿件投稿中的名字列，然后根据名字列自动查询并计算稿费统计下的各项信息数据。

李孝春

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

求助：如何实现稿费统计表中名字列自动获取稿件投稿中的名字列，然后根据名字列自动查询并计算稿费统计下的各项信息数据。 发帖心情

Post By：2014/5/15 17:40:00 [显示全部帖子]

求助：如何实现稿费统计表中名字列自动获取稿件投稿中的名字列，然后根据名字列自动查询并计算稿费统计下的各项信息数据。

项目有三表：

一个是稿费表【设置不同级别媒体不同文件类别不同稿费】

一个是稿件投稿【进行稿件投稿登记，有姓名、文章标题、媒体类型、级别、稿费等字段】

一个是稿费统计【按照媒体级别和文件类型进行了复杂表头设计，期待根据稿件投稿表中的姓名字段进行自动复制到稿费统计中的姓名字段，然后自动实现该名字对应稿件投稿表中的名字下，所发表的稿件不同类型数量进行统计，然后套用稿费表中对应的稿费标准，进行稿费计算】

个人感觉这个方法貌似思路不合理，求各位老师多多指导，力求更合理的方法！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:信息发布调研文章.zip

此主题相关图片如下：1.jpg

此主题相关图片如下：11.jpg

[此贴子已经被作者于2014-5-15 17:40:51编辑过]

李孝春

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：bin （李孝春）求助：如何实现稿费统计表中名字列自... 发帖心情

Post By：2014/5/15 19:54:00 [显示全部帖子]

感谢BIN,是的我想实现你所说的当选择是否刊登后就自动将数据弄过去并进行计算请多多指导

李孝春

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

感谢有点甜老师的思路 发帖心情

Post By：2014/5/15 23:43:00 [显示全部帖子]

感谢有点甜老师的思路解决了数据查询统计和稿费自动计算问题

但是现在新问题出现，

1、因为稿费统计是按照一定时间来统计的，假设按照年度来统计，那么是否还需要增加一个字段列来进行筛选呢？

在稿件投搞中有一个刊登时间列我拟增加一个列根据刊登时间来进行年份判断

在稿费统计列新增年度列，进行选择筛选，不知道有没有更好的操作办法。

2、由于作者比较多，不可能一一的输入名字进行筛选统计，有没有办法直接将在稿件投稿中“是否刊登”为已经刊登，的全部自动进行筛选到稿费统计表中呢？

期待老师们的多多指导再次对指导的老师们表示感谢！

李孝春

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点甜）1、如果统计是按年份统计的，统计表就... 发帖心情

Post By：2014/5/16 15:57:00 [显示全部帖子]

有点甜老师，之前是用已刊登来作为选择后，自动复制记录到稿费统计表，实现了自动计算，但是这个貌似在某种情况下不能得到最新数据。

现在我想弄一个代码在稿费统计窗体中创建一个稿费统计表，然后放置一个按钮，名为：提取数据

实现：从稿件投稿中的稿件作者提取不重复数据增加到稿费统计中的稿件作者求指导！

下面的代码不能正常运行求指导！

Dim ls As List(Of String)
ls = DataTables(" 稿件投稿 ").GetValues(" 稿件作者 ")
Dim count As Integer = Tables(" 稿费统计 ").rows.Count
Tables(" 稿费统计 ").AddNew(ls.Count)
For i As Integer = 0 To ls.Count - 1
Tables(" 稿费统计 ").Rows(i+count)(" 稿件作者 ") = ls(i)
Next
图片点击可在新窗口打开查看

此主题相关图片如下：11.jpg