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

 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 dr As DataRow In DataTables("销售单明细").DataRows
    If dr.isnull("颜色") = True Then
        msgbox("f")
    End If
Next

 

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

 例子。

 一般是在beforesavedatarow的时候判断。