If e.Form.controls("TextBox2").text <> "" Then e.Form.Controls("Table1").Table.current.Delete Else MessageBox.Show("请录入厂商名称!", "提示", MessageBoxButtons.Ok, MessageBoxIcon.Information)
End If