主题：提交条件与提交后隐藏成功提交的相关行

Dim Filter1 = "[订单编号] = '" & r("订单编号") & "'"
Dim dr1 As DataRow = DataTables("配载订单").sqlFind(filter1)

Dim Filter2 = "[项目] = '" & r("项目") & "'"
Dim dr2 As DataRow = DataTables("项目信息").sqlFind(filter2)

If dr1 Is Nothing AndAlso dr2 IsNot Nothing Then
    ls.Add(r)
    count += 1
End If