For Each dr As DataRow In DataTables("表A").DataRows
If dr.isnull("颜色") Then
If DataTables("表A").Find("型号 = '" & dr("型号") & "' And 规格 = '" & dr("规格") & "' And 颜色 is null") IsNot Nothing Then
MessageBox.Show("有重复行!","提示")
Exit For
End If
End If
If DataTables("表A").Find("型号 = '" & dr("型号") & "' And 规格 = '" & dr("规格") & "' And 颜色 = '" & dr("颜色") & "'") IsNot Nothing Then
MessageBox.Show("有重复行!","提示")
Exit For
End If
Next