Dim all As Boolean = True
For Each dr As DataRow In DataTables("表A").DataRows
Dim rll As Boolean = True
For Each c As DataCol In DataTables("表A").DataCols
If c.Name.StartsWith("_") = False
If (c.IsBoolean = False And not dr.IsNull(c.Name)) OrElse (c.IsBoolean AndAlso dr(c.Name) = True)
rll = False
Exit For
End If
End If
Next
If rll Then
Output.Show("空行,ID" & dr("_Identify"))
Else
all = False
End If
Next
If all Then
Output.Show("空表")
End If
加好友 
发短信
Post By：2016/11/3 17:36:00 [显示全部帖子]
