|
Dim s As String = ""
Dim t As Table = Tables("空值_Table1")
For i As Integer = 0 To t.Rows.Count -1
Dim str As String = ""
If t.Rows(i).IsNull("第二列") Then
str &= t.Rows(i)("编号") & "-[第二列]为空,"
End If
If t.Rows(i).IsNull("第三列") Then
str &= t.Rows(i)("编号") & "-[第三列]为空,"
End If
If t.Rows(i).IsNull("第四列") Then
str &= t.Rows(i)("编号") & "-[第四列]为空,"
End If
If t.Rows(i).IsNull("第五列") Then
str &= t.Rows(i)("编号") & "-[第五列]为空,"
End If
If str > "" Then
s &= str.Trim(",") & vbcrlf
End If
Next
msgbox(s)
|
加好友 
发短信
Post By：2018/4/30 16:11:00 [显示全部帖子]
