Dim t As Table = Tables("表A") Dim cr As Row = t.Current Dim Isnull As Boolean = False If cr.IsNull("第三列") OrElse cr.IsNull("第五列") Then Isnull = True Else For Each c As Col In t.Cols If cr.IsNull(c.Name) Then Isnull = True Exit For End If Next End If msgbox(isnull)