主题：[求助]哪位大神帮忙看看代码

If e.Col.Name="日期" AndAlso e.text > "" AndAlso e.Row.Index > 0  Then
    Dim d1 As Date
    Dim d2 As Date
    If  Date.TryParse(e.text,d1) Then
        d2 = e.Table.Rows(e.Row.Index-1)("日期")
        If d2 > d1 Then
            e.Cancel=True
        End If
    End If
End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目274.table

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