For Each dr As DataRow In DataTables("表a").Select("") If dr("第一列") = dr("第二列") AndAlso dr.IsNull("第一列") = False AndAlso dr.IsNull("第二列") = False dr("第三列") = True Else dr("第三列") = False End IfNext