Dim mc As WinForm.TextBox = e.Form.Controls("mc")
If mc.value Is Nothing Then
If Tables("客户信息").current IsNot Nothing Then
Tables("客户信息").current.Delete
End If
forms("客户").close()