If fl Is Nothing OrElse e.Form.Controls("DateTimePicker1").Text is Nothing Then MessageBox.show("请选择""统计类型""或者""年份""","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) ReturnEnd If