主题：[求助]判断新值不能小于前期的值

If e.DataCol.Name = "负责人出庭案件数"  Then

    Dim Val As Integer

    Val = DataTables("行政机关负责人出庭应诉统计表").SQLCompute("MAX(负责人出庭案件数)", "年份 = '" &  Date.Today.Year & "年' And 法院全称 =  '" & _UserZName & "'")

    msgbox(Val)

    If e.DataRow("负责人出庭案件数") < Val Then     ’e.NewValue 也不行

        msgbox("小于前期值!")

        e.DataRow("负责人出庭案件数") = ""

        e.Cancel =  True        

    End  If

End  If