试试这个:
Dim b_returnDate As String=e.Form.Controls("DateTimePicker.returnDate").valueIf b_returnDate > "" Then
else messagebox.show("请输入回访日期") ReturnEnd If