[求助]多表条件取值计算（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]多表条件取值计算（已解决）

共有10077人关注过本帖树形打印复制链接主题：[求助]多表条件取值计算（已解决）

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/8/28 9:19:00 [只看该作者]

你是不是传错文件了？

yyzlxc

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

加好友

发短信

等级：七尾狐帖子：1525 积分：10580 威望：0 精华：0 注册：2008/9/24 11:16:00

Post By：2012/8/28 9:38:00 [只看该作者]

不好意思，重新上传。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:案例.rar

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/8/28 10:25:00 [只看该作者]

我无法理解你的问题，你用一条具体的数据来说明如何计算的吧。

yyzlxc

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

加好友

发短信

等级：七尾狐帖子：1525 积分：10580 威望：0 精华：0 注册：2008/9/24 11:16:00

Post By：2012/8/28 11:08:00 [只看该作者]

谢谢狐爸老师的回复，具体的算法：

如张4,1-3月份在部门2，职务是4，所以他的1-3月份的考核奖分别 = 180 * 1.8 = 324
4-12月份在部门3，职务是3，所以他的4-12月份的考核奖分别 = 160 * 1.5 = 240

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/8/28 11:50:00 [只看该作者]

你的系数，到底是根据部门，还是根据岗位来确定的？

还有180* 1.8 ，这个180是哪里来的？

yyzlxc

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

加好友

发短信

等级：七尾狐帖子：1525 积分：10580 威望：0 精华：0 注册：2008/9/24 11:16:00

Post By：2012/8/28 11:59:00 [只看该作者]

谢谢狐爸老师的回复，系数是根据岗位来确定，180是单位的系数考核奖，在系数奖金表中读取。

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/8/28 12:45:00 [只看该作者]

For Each dr1 As DataRow In DataTables("个人奖金").DataRows
    Dim pr As DataRow
    For i As Integer = 1 To 12
        If dr1.IsNull("姓名") Then
            dr1("奖金明细_" & i &"_奖金系数") = Nothing
        Else
            pr = DataTables("个人数据").Find("姓名 = '"& dr1("姓名")& "'")
            If pr IsNot Nothing Then
                dr1("奖金明细_" & i &"_奖金系数") = pr("系数_" & i)
                If dr1("奖金明细_" & i &"_奖金系数") = 0 Then
                    dr1("奖金明细_" & i &"_奖金系数") = Nothing
                End If
                Dim gw As Integer = pr("岗位_" & i)
                Dim xh As Double = pr("系数_" & gw)
                Dim dr2 As DataRow = DataTables("系数奖金").Find("部门 = '" & pr("部门_" & i) & "'")
                If dr2 IsNot Nothing Then
                    dr1("奖金明细_" & i & "_考核奖") = xh & dr2("系数考核奖")
                End If
            Else
                dr1("奖金明细_" & i & "_奖金系数") = Nothing
            End If
        End If
    Next
Next

yyzlxc

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

加好友

发短信

等级：七尾狐帖子：1525 积分：10580 威望：0 精华：0 注册：2008/9/24 11:16:00

Post By：2012/8/28 14:00:00 [只看该作者]

谢谢狐爸老师的指教，代码执行后，其他行的数据完全正确，但是张4的数据好像还有问题：

1-3月份考核奖应该是：180*1.8=324，计算结果却是270；

而4-12月份考核奖应该是：160 * 1.5 = 240，而计算结果却是288；

不知问题出在哪里？还请狐爸老师帮助看看，万分感谢！！

yyzlxc

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

加好友

发短信

等级：七尾狐帖子：1525 积分：10580 威望：0 精华：0 注册：2008/9/24 11:16:00

Post By：2012/8/29 9:28:00 [只看该作者]

分析后，是 xh 的结果出错，改成直接用 pr("系数_" & i) 来替换 xh ，问题解决。修改后的代码如下：

'填充计算

For Each dr1 As DataRow In DataTables("个人奖金").DataRows
    Dim pr As DataRow
    For i As Integer = 1 To 12
        If dr1.IsNull("姓名") Then
            dr1("奖金明细_" & i &"_奖金系数") = Nothing
        Else
            pr = DataTables("个人数据").Find("姓名 = '"& dr1("姓名")& "'")
            If pr IsNot Nothing Then
                dr1("奖金明细_" & i &"_奖金系数") = pr("系数_" & i)
                If dr1("奖金明细_" & i &"_奖金系数") = 0 Then
                    dr1("奖金明细_" & i &"_奖金系数") = Nothing
                End If
                Dim dr2 As DataRow = DataTables("系数奖金").Find("部门 = '" & pr("部门_" & i) & "'")
                If dr2 IsNot Nothing Then
                    dr1("奖金明细_" & i & "_考核奖") = dr2("系数考核奖") * pr("系数_" & i)
                    dr1("奖金明细_" & i & "_节约奖") = dr2("系数节约奖") * pr("系数_" & i)
                End If
            Else
                dr1("奖金明细_" & i & "_奖金系数") = Nothing
            End If
        End If
    Next
Next

对czy老师和狐爸老师的热情指教再次表示衷心感谢！！

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/8/29 10:08:00 [只看该作者]

呵呵，自力更生，丰衣足食。

图片点击可在新窗口打开查看

下一主题 >> << 上一主题

总数 21 上一页 1 2 3 下一页

主题：[求助]多表条件取值计算（已解决）