关于不同表之间数据对比问题，请教老师！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于不同表之间数据对比问题，请教老师！

共有2484人关注过本帖树形打印复制链接主题：关于不同表之间数据对比问题，请教老师！

初心不改再说未来

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

加好友

发短信

等级：一尾狐帖子：496 积分：3905 威望：0 精华：0 注册：2017/7/19 10:58:00

关于不同表之间数据对比问题，请教老师！ 发帖心情

Post By：2018/10/12 13:23:00 [只看该作者]

财务表中有一列编号为001的数据，其中有一列：利润。

业务表中有一列编号为001的数据，其中也有一列：利润。

两个表的编号通过业务表中某逻辑列双击后自动在财务表中新加相同编号的。未设置关联。

现在需求是：业务表中输入的利润列，如何在财务表中也输入利润列（编号都为001）时，对比两组数字是否相同，若不同则提示信息，或者用表样式提示红色？

谢谢老师

初心不改再说未来

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

加好友

发短信

等级：一尾狐帖子：496 积分：3905 威望：0 精华：0 注册：2017/7/19 10:58:00

Post By：2018/10/12 15:00:00 [只看该作者]

判断两个利润列是用编号判断。我的编号是唯一的，且都是自动复制过来的无法修改，不会错。

说白了，就是业务填写完利润以后，提交到下一流程到财务那边，财务那边还要统计一遍利润，填写的时候希望能自动提示金额是否相符，若不相符则提示文字为红色

初心不改再说未来

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

加好友

发短信

等级：一尾狐帖子：496 积分：3905 威望：0 精华：0 注册：2017/7/19 10:58:00

Post By：2018/10/12 15:04:00 [只看该作者]

For b As Integer = 0 To DataTables("业务表").DataRows.Count-1
    Dim contains As Boolean = False
    For a As Integer = 0 To DataTables("财务表").DataRows.Count-1

        If Tables("业务表").Rows(b)("利润") = Tables("财务表").Rows(a)("利润") Then
            contains = True
            Exit For
        End If

    Next
    e.Style = "红色"

End If

请老师指教