1、首先要判断是否已经输入了内容,如果没有输入,就没有必要比较了,所以才有 e.text > ""
2、要判断输入的内容是否是正确的日期,所以才有If Date.TryParse(e.text,d1) Then
3、If b>1 Then 是不对的,应该是>0,因为第一行的编号是0。
4、 If d2<d1 也不对,应该是if d2<d1,原因自己想一下。
这些问题,对于新手很正常,你已经做得很不错了。
可以继续按顺序看帮助学些,或者看置顶的视频教程:
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187
好耐心,赞!!