Foxtable(狐表)用户栏目专家坐堂 → 两个表的数据进行比较,如果一致,就在窗口文本框中显示为“正确”,否则显示为“数据不一致”,如何写代码


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

主题:两个表的数据进行比较,如果一致,就在窗口文本框中显示为“正确”,否则显示为“数据不一致”,如何写代码

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


加好友 发短信
等级:五尾狐 帖子:1094 积分:8429 威望:0 精华:0 注册:2012/7/10 9:09:00
两个表的数据进行比较,如果一致,就在窗口文本框中显示为“正确”,否则显示为“数据不一致”,如何写代码  发帖心情 Post By:2020/1/19 11:44:00 [只看该作者]

说明:一个窗口中放置了两张表,即“数据上报”和“数据计算”,两个表中的分别有“年度”、“地市名称”、“面试室”、“加权系数”四列,现在想比较两个表的相同的年度、地市名称、面试室的加权系数是否相同,如果相同就在窗口的文本框中显示“正确”,如果不相同,就显示“数据不一致”,想设计一个按钮,点击按钮,就进行数据比对,如何写代码,请专家指导。
图表一:
图片点击可在新窗口打开查看此主题相关图片如下:截图1233.png
图片点击可在新窗口打开查看
图表二:
图片点击可在新窗口打开查看此主题相关图片如下:截图234.png
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/19 11:58:00 [只看该作者]

For Each r As Row In Tables("表A").rows
    Dim dr As DataRow In DataTables("表B").find("年度='" & r("年度") & "' and 地市名称='" & r("地市名称") & "' and 面试室='" & r("面试室") & "'")
    If dr Is Nothing Then
        msgbox("没有同样的数据")
        Return
    Else
        If r("加权系数") <> r("加权系数")
            e.form.controls("某文本框").text = "数据不一致,行号" & r.index
            Return
        End If
    End If
Next
e.form.controls("某文本框").text = "正确"

 回到顶部
帅哥哟,离线,有人找我吗?
hrw68529
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1094 积分:8429 威望:0 精华:0 注册:2012/7/10 9:09:00
  发帖心情 Post By:2020/1/19 12:05:00 [只看该作者]

错误显示:
图片点击可在新窗口打开查看此主题相关图片如下:截图567.png
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/19 13:39:00 [只看该作者]

 Dim dr As DataRow = DataTables("表B").find("年度='" & r("年度") & "' and 地市名称='" & r("地市名称") & "' and 面试室='" & r("面试室") & "'")

 回到顶部
帅哥哟,离线,有人找我吗?
hrw68529
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1094 积分:8429 威望:0 精华:0 注册:2012/7/10 9:09:00
  发帖心情 Post By:2020/1/19 14:27:00 [只看该作者]

谢谢,完美

 回到顶部
帅哥哟,离线,有人找我吗?
hrw68529
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1094 积分:8429 威望:0 精华:0 注册:2012/7/10 9:09:00
  发帖心情 Post By:2020/1/19 14:36:00 [只看该作者]

有点蓝,报错只报第一个错误,其他错误不报,如:只报第0行号,其他错误行号没有显示,如何显示,请指教

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/19 14:41:00 [只看该作者]

dim str as string = ""
For Each r As Row In Tables("表A").rows
    Dim dr As DataRow= DataTables("表B").find("年度='" & r("年度") & "' and 地市名称='" & r("地市名称") & "' and 面试室='" & r("面试室") & "'")
    If dr Is Nothing Then
        msgbox("没有同样的数据")
    Else
        If r("加权系数") <> r("加权系数")
str = str  & "," & r.index
        End If
    End If
Next
if str > "" then
            e.form.controls("某文本框").text = "数据不一致,行号" & str
else
e.form.controls("某文本框").text = "正确"
end if
[此贴子已经被作者于2020/1/19 14:41:03编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
hrw68529
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1094 积分:8429 威望:0 精华:0 注册:2012/7/10 9:09:00
  发帖心情 Post By:2020/1/19 16:16:00 [只看该作者]

谢谢,新年愉快,太完美了

 回到顶部