主题：代码咨询！

如何判断当FILTER定义的SQL语句找不到符合条件的记录时用MESSAGEBOX提示一遍？

 

If startdate.Value=Nothing OrElse enddate.value=Nothing Then
    Messagebox.Show("请选则起始日期或终止日期")
    Return
Else
    For Each dr As DataRow In dt2.SQLSelect("commitTime >='" & startdate.value & "' and PromiseTimeString <='" & EndDate.value & "'","","PNumber")
        Dim filter As String = "PreID like '%" & dr("PNumber") & "'"
        Dim fdr As DataRow = dt1.SQLFind(filter)
        If fdr Is Nothing Then
            Dim ndr As DataRow = dt3.AddNew
            ndr("项目编号") = dr("pNumber")
            ndr("客户名称") = dr("companyName")
        End If
    Next

End If

 

 

If fdr Is Nothing Then
            Dim ndr As DataRow = dt3.AddNew
            ndr("项目编号") = dr("pNumber")
            ndr("客户名称") = dr("companyName")

还是不行，可能我没有表述清楚。上面的代码实现的功能是A表的PREID字段去B表的Pnumber字段搜索，如果A表中所有记录B表中都有，则MESSAGE提示，未搜索到则把未搜索到的记录罗列出来。

 

红字部分是我想要提示功能不知道加在哪合适，让其只提示一遍！

If startdate.Value=Nothing OrElse enddate.value=Nothing Then
    Messagebox.Show("请选则起始日期或终止日期")
    Return
Else
    Dim flag As Boolean = False
    For Each dr As DataRow In dt2.SQLSelect("commitTime >='" & startdate.value & "' and PromiseTimeString <='" & EndDate.value & "'","","PNumber")
        Dim filter As String = "PreID like '%" & dr("PNumber") & "'"
        Dim fdr As DataRow = dt1.SQLFind(filter)
        If fdr Is Nothing Then
            Dim ndr As DataRow = dt3.AddNew
            ndr("项目编号") = dr("pNumber")
            ndr("客户名称") = dr("companyName")
        Else If flag = False Then
            msgbox("有重复值")
            flag = True
        End If
    Next
   
End If

问题解决，多谢老师

刚刚测试出现一些问题，当A表中所有记录B表中都有，则MESSAGE提示这部分正常，当未搜索到则把未搜索到的记录罗列出来后也出现了这个MESSAGE提示。这是我不想要的

 什么意思啊？只要有一条重复，就会提示啊。

举个例子：

第一种情况：A表中三行记录ID列值为 001、 002、 003 B表中三行记录BID列值为001 、002、 003，A表去B表中找，都找到了则弹出提示“没有丢失的记录”

第二种情况：A表中三行记录ID列值为 001、 002、 003 B表中三行记录BID列值为001、002 、003，004 。B表中比A表多出了004，则把004这条记录列出来且不要任何提示。

您的代码第二种情况也出现了提示，不知道老师我说明白没？

If startdate.Value=Nothing OrElse enddate.value=Nothing Then
    Messagebox.Show("请选则起始日期或终止日期")
    Return
Else
    Dim flag As Boolean = False
    For Each dr As DataRow In dt2.SQLSelect("commitTime >='" & startdate.value & "' and PromiseTimeString <='" & EndDate.value & "'","","PNumber")
        Dim filter As String = "PreID like '%" & dr("PNumber") & "'"
        Dim fdr As DataRow = dt1.SQLFind(filter)
        If fdr Is Nothing Then
            Dim ndr As DataRow = dt3.AddNew
            ndr("项目编号") = dr("pNumber")
            ndr("客户名称") = dr("companyName")
            flag = True
        End If
    Next
    If flag = False Then
        msgbox("提示")
    End If
End If