主题：条件提示

在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("|"," "))