老师,我有一个窗口,窗口中有多个Table,我新增了一个检查按钮,想实现检查一下表二的数据在表4中是否存在,使用代码如下:
Dim tx As Table = e.form.Controls("Table2").Table
For Each r As Row In tx
Dim t2 As Table = e.form.Controls("Table4").Table
If t2.Compute("count(id))"," hh = '" & r("cpxh") & "' and mc = '" & r("cpmc") & "' ") = 0 Then
msgbox("产品序号为 '" & r("cpxh") & "' 名称为 '" & r("cpmc") & "' 在清单一级中未能对应,请检查导入的数据行是否正确 ")
Return
End If
Next
但是就是在表二的数据行在表4中存在的情况,但是检测代码也不起作用,请问是哪里的问题?如何处理实现。