主题：请教空行

大师：请问如何控制一张表的满足下列要求的代码，劳驾指导一下。

 1、

 

Dim dt As DataTable = DataTables("表A")
For Each dr As DataRow In dt.datarows
    Dim flag As Boolean = True
    For Each dc As DataCol In dt.datacols
        If dr.IsNull(dc.name) = False Then
            flag = False
        ElseIf flag = False Then
            msgbox(dr("_Identify") & "行" & dc.name & "为空")
            Return ""
        End If
    Next
Next

 

 2、

 

Dim dt As DataTable = DataTables("表A")
Dim idxs As String = "-1,"

For Each dr As DataRow In dt.datarows
    Dim flag As Boolean = True
    For Each dc As DataCol In dt.datacols
        If dr.IsNull(dc.name) = False Then
            flag = False
        End If
    Next
    If flag Then
        idxs &= dr("_Identify") & ","
    End If
Next
dt.DeleteFor("_Identify in (" & idxs.trim(",") & ")")

谢谢！能否通过行状态属性进行判断，代码是否少些？

 不可以。