If Tables("型号数据表").Current.IsNull("阻抗线路层别") = False Then Tables("型号数据表").Current.Clone() Tables("型号数据表").Current.Locked = False Else msgbox("当前行 阻抗线路层别 没有填写值") End If