主题：条件提示

我想实现以下功能不知是否能够实现。

有两个表，表A与表B。 表A有审核列与编号列，表B有编号列。 那么筛选出表A审核列=1 的编号，再查找表B是否有相同的编号，如果表B里没有找到相同的编号那么提示此编号不存在。

采用SQL数据库，表B默认不加载数据。

恳请各位老师的帮助！

没看明白你的过程

谢谢狐爸！

 

我是想做一个按钮，点击按钮能够提示。

例如：表A编号列里有 A1.A2.A3.A4.A5.A6.A7.A8  ,已通过审核的为A2.A3.A4.A5.A6.A7 ，在表B的编号列里查找是否存在A2.A3.A4.A5.A6.A7 。

如果表B的编号里只有A2.A5.A6.A7 ，那么提示A3.A4不存在

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

Dim names As String
For Each Name As String In DataTables("表A").GetComboListString("编号","[审核] = true").Split("|")
    If not DataTables("表B").GetComboListString("编号","编号 is not null").Contains(Name)
        names & = " " & name
    End If
Next

MessageBox.Show("不存在的编号是:" & vbcrlf & Names.Trim(" "))

非常感谢CZY版主对我的帮助！

 

还有些问题？

我采用外部数据源，表B默认不加载数据。

可否增加以下带码，如果对庞大的数据全部加载会影响速度吗

DataTables("表B").LoadFilter = ""
DataTables("表B").Load() 

发现还有些问题！

 

当表B的型号列存在 dd11 , 不存在 dd1 ,表A型号列存在 dd1 ,不会提示dd1

这样看看

 

Dim names As String
For Each Name As String In DataTables("表A").GetComboListString("编号","[审核] = true").Split("|")
Output.Show(name)
    If not DataTables("表B").GetComboListString("编号","编号 is not null").Contains(Name & "|")
        names & = "|" & name
    End If
Next

MessageBox.Show("不存在的编号是:" & vbcrlf & Names.Trim("|").Replace("|"," "))

非常感谢CZY版主！

 

现在的问题是它会多提示一个编号。

比如表B里不存在的是 A2  A6   ,提示为 A2 A6 A8  ,提示多了一个编号，A8 表B里是存在的

如果表A里的编号表B里都存在，它会提示提示最后一个编号。

在C版基础上改了一句，测试有效。
 
Dim names As String
For Each Name As String In DataTables("表A").GetComboListString("编号","[审核] = true").Split("|")
Output.Show(name)
    If not (DataTables("表B").GetComboListString("编号","编号 is not null") & "|").Contains(Name & "|")
        names & = "|" & name
    End If
Next

MessageBox.Show("不存在的编号是:" & vbcrlf & Names.Trim("|").Replace("|"," "))

问题已解决

 

谢谢各位！