主题：请教空行

 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(",") & ")")