Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共1 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:请教检查表数据语句

1楼
hopestarxia 发表于:2025/4/20 0:54:00
老师,我有一个窗口,窗口中有多个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中存在的情况,但是检测代码也不起作用,请问是哪里的问题?如何处理实现。
共1 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02148 s, 2 queries.