If Tables("表A").Current.IsNull("阻抗线路层别") = False Then
Tables("表B").AddNew
Else
msgbox("当前行 阻抗线路层别 没有填写值")
End If