帮我看看这些代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.Name
    Case "负责工程师","任务编号"
        Dim dr1 As DataRow = e.DataRow
        Dim dr2 As DataRow
        If dr1("负责工程师") = "聂宗财" Then
            Dim Filter As String = "负责工程师 = '聂宗财' And 任务编号 = '" & dr1("任务编号") & "'"
             dr2 = DataTables("任务进度表").find(Filter,"事件级别")
            If dr2 Is Nothing Orelse dr2.Isnull("实际开始时间") Then
             dr1("实际开始时间") = Nothing
            Else
             dr1("实际开始时间") = dr2("实际开始时间")
            End If
             dr2 = DataTables("任务进度表").Find(Filter,"事件级别 Desc")
            If dr2 Is Nothing Orelse dr2.Isnull("实际结束时间") Then
             dr1("实际结束时间") = Nothing
            Else
             dr1("实际结束时间") = dr2("实际结束时间")
            End If
        End If
End Select

这些代码有一个问题，
dr2 = DataTables("任务进度表").Find(Filter,"事件级别 Desc")

Filter,"事件级别 Desc")代码中的Desc只能判断0到9。超过后就无效了。怎么样改成无数，0到99999999999

有办法吗？

主题：帮我看看这些代码