- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 两个表的数据进行比较，如果一致，就在窗口文本框中显示为“正确”，否则显示为“数据不一致”，如何写代码 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=145423)
-- 发布时间：2020/1/19 11:44:00
-- 两个表的数据进行比较，如果一致，就在窗口文本框中显示为“正确”，否则显示为“数据不一致”，如何写代码
说明：一个窗口中放置了两张表，即“数据上报”和“数据计算”，两个表中的分别有“年度”、“地市名称”、“面试室”、“加权系数”四列，现在想比较两个表的相同的年度、地市名称、面试室的加权系数是否相同，如果相同就在窗口的文本框中显示“正确”，如果不相同，就显示“数据不一致”，想设计一个按钮，点击按钮，就进行数据比对，如何写代码，请专家指导。
图表一：
此主题相关图片如下：截图1233.png
此主题相关图片如下：截图1233.png图表二：
此主题相关图片如下：截图234.png
此主题相关图片如下：截图234.png-- 发布时间：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 = "正确"
-- 发布时间：2020/1/19 12:05:00
--
错误显示：
此主题相关图片如下：截图567.png
-- 发布时间：2020/1/19 13:39:00
--
Dim dr As DataRow = DataTables("表B").find("年度=\'" & r("年度") & "\' and 地市名称=\'" & r("地市名称") & "\' and 面试室=\'" & r("面试室") & "\'")
-- 发布时间：2020/1/19 14:27:00
--
谢谢，完美
-- 发布时间：2020/1/19 14:36:00
--
有点蓝，报错只报第一个错误，其他错误不报，如：只报第0行号，其他错误行号没有显示，如何显示，请指教
-- 发布时间：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编辑过]
-- 发布时间：2020/1/19 16:16:00
--
谢谢，新年愉快，太完美了