主题：如何判断表中 某字段有空值？

如何判断表中 某字段有空值？ 提示信息出来

 If 某行.IsNull("某列") Then

     Msgbox(1)

 End If

这样的话 要用遍历了

Dim filter As String = "1=2"
For Each dc As DataCol In DataTables("表A").DataCols
    filter &= " or " & dc.Name & " is null "
Next

If DataTables("表a").Find(filter) IsNot Nothing Then
    msgbox("有空值")
End If

For Each r As Row In Tables("销售单明细").Rows
If r.isnull("颜色") = True Then
msgbox("f")
End If
Next

 

 

明明有空值 为何没反应

 不可能吧，试试

 

For Each dr As DataRow In DataTables("销售单明细").DataRows
    If dr.isnull("颜色") = True Then
        msgbox("f")
    End If
Next

 

此主题相关图片如下：qq图片20131105200601.jpg

For Each dr As DataRow In DataTables("销售单明细").DataRows
    If dr.isnull("颜色") = True OrElse dr("颜色").Trim = "" Then
        msgbox("f")
    End If
Next

不行

 

 例子。