If Tables("订单表").Current.IsNull("客户名称") Then
msgbox("当前行 客户名称 不能为空")
Else
Tables("订单表").AddNew
End If