这个无法控制,除非你用代码新增行
If Tables("表A").Current.IsNull("第一列") Then msgbox("请先输入值")Else Tables("表A.表B").AddNewEnd If